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IDENTIFICATION 


PRODUCT CODE: AC=8412C-MC 

PRODUCT NAME: CZCRACO CR11 DIAG TSTS 
PRODUCT DATE: OCTOBER, 1979 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A_ COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT 
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 


SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1970, 1979 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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€ 

3 1. ABSTRACT 6 
es THIS TEST IS_TO BE USED AS A CARD READER DIAGNOSTIC FOR THE é 
3 PDP=11 WITH THE CR11 CARD READER. IT TESTS ALL LOGIC FUNCTIONS é 
7 OF THE CARD READER, AND INCLUDES AN EXERCISER FOR ALPHANUMERIC é 
58 AND BINARY TEST DECKS. A SEPARATE STARTING ADDRESS ALLOWS THE é 
59 ERROR SENSING FUNCTIONS OF THE G.D.I1. OR DOCUMATION READER TO BE é 
60 CHECKED. ANOTHER STARTING ADDRESS TESTS SPECIAL DECKS WHICH HAVE ALL é 
61 COLUMNS AND CARDS PUNCHED IDENTICALLY, TO AID IN DIAGNOSING é 
3 SPECIAL PROBLEMS. | 
% 2. REQUIREMENTS ¢ 
rs] 2.1 EQUIPMENT ¢ 
68 PDP=11 COMPUTER WITH 4K MEMORY é 
14 CR11 CARD READER ‘ 
| 2.2 TEST DECKS : 
73 MAINDEC-89-D2A1=C ALPHANUMERIC TEST DECK é 
ok MAINDEC-89-D2A2-C BINARY TEST DECK é 
cS EXTRA CARDS (FOR ERROR FUNCTION TEST) é 
ry 
78 é 
a4 3 LOADING PROCEDURE d 
aI PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. : 
. 4. STARTING PROCEDURE { 
85 gt PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT € 
86 A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS é 
87 THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF_NOT FOUND A € 
88 SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. ¢ 
89 IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE € 
a DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED ¢ 
4 (IE) SWR=XXXXXX NEW= { 
od POSSIBLE RESPONSES ARE: i 
96 1. <CR> IF NO CHANGES ARE TO BE MADE i 
97 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER i 
98 VALUE ;LAST DIGIT FOLLOWED BY <CR>. i 
9 } “U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED i 
= KEYING IN SWREG VALUE. ‘ 
102 BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICA._LY CHANGE THE i 
103 CONTENTS OF SWREG DURING PROGRAM EXECU to BY STRIKING “G i 
104 (CNTL_G) ON CONSOLE TTY THE OPERATOR SETS A REQUESS FLAG TO CHANGE i 
105 THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM i 
106 CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER i 
107 APPLICABLE AREAS. i 





D 
CZCRACO CR11 DIAG TSTS MACY]1 SOA(1052) 27-SEP-79 09:50 PAGE 4 
CZCRAC.P11 =SEP=79 15:13 


4.1 CONTROL SWITCH SETTINGS 
BASIC SWITCH REGISTER SETTINGS ARE: 


OR UP==-HALT ON ERROR 

OR UP===SCOPE LOOP 

OR UP=-- INHIBIT PRINT OUT 

OR UP=-=-INHIBIT TRACE TRAPPING 

OR UP==-INHIBIT SUB-PROGRAM ITERATION 

(NOTE THAT IF SwW1i1 IS SET, THE CARD COUNT 
ED, CAUSING FAILURES IN THE 


nnnn 
— 


OR THRU THE INSTRUCTION TEST PORTION 

DATA ERRORS MAY OCCUR IF SW7_ IS SET, THEN CLEARED. 

ALSO THE TEST MAY HANG WHEN THE INPUT HOPPER GOES EMPTY 

IF SW? WAS SET. 

OR UP=--RETURN TO THE BEGINNING OF THE INSTRUCTION TEST 
WHEN CONTINUING FROM ONE DECK TO ANOTHER 

OR UP=---HALT BETWEEN TEST DECKS 
(SEE 5.2.1 FOR EXPLANATION OF SW5=0) 

OR UP=--RUN THE BINARY TEST DECK 
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STARTING ADDRESSES 


INSTRUCTION AND DATA TEST 

ERROR FUNCTION TEST (WITH G.D.I. READER) 
ERROR elie TEST (WITH DOCUMATION READER) 
SINGLE SUBTEST LOOP 

25 READ SINGLE DATA PATTERN TEST 


PROGRAM AND/OR OPERATOR ACTION 
INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 


LOAD PROGRAM INTO MEMORY. 

LOAD ONE TEST DECK IN THE CARD READER INPUT HOPPER 

PRESS MOTOR START AND READ START (‘RESET'’ ON DOCUMATION READER). 
7 ty ee TO STARTING ADDRESS. 


IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE 
peu ttat PRESSING START. IF SWITCH=LESS MACHINE SIMPLY 
WHEN THE INPUT HOPPER IS EMPTY THE PROGRAM WILL HANG WAITING 

FOR AN _IN i FROM THE CARD READER. LOAD ONE OR MORE 
TEST wi INTO THE INPUT HOPPER. PRESSING ‘MOTOR START’’ AND 
"READ START’ (° PRESET * ON DOCUMATION READER) ON THE CARD 
READER SHOULD CAUSE PROGRAM EXECUTION TO RESUME. 

THIS ENTIRE SEQUENCE IS NECESSARY TO RUN THE FULL TEST ON THE CARD 


READER. 
ALL ea = oh INDICATE FAILURE, INCLUDING THOSE SAYING 
T BIT 8 OR BIT 15 WAS SET. 


ERROR FUNCTION TEST (SA 210 OR 220) 
LOAD A FEW SPARE CARDS INTO THE INPUT sO (DO NOT LOAD A 


TEST DECK=THIS TEST IS DESTRUCTIVE!) 
START’ AND "READ START’’ (‘RESET'' ON DOCUMATION READER) 


RVVS 
So 


29 
40 
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3 
35 
3 
38 
39 
40 
41 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
52 
53 
54 
55 
56 
57 
58 
159 


E 
IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE 
peeet ttent BEFORE PRESSING START. IF SWITCH-LESS MACHINE SIMPLY 
FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 


SINGLE SUBTEST LOOP (SA 240) 


LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT HOPPER 

PRESS ‘MOTOR START’’ AND READ START’’ (‘RESET’' ON DOCUMATION READER) 
ON THE CARD READER. 

LOAD THE STARTING ADDRESS. 

IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE 

est ttt PRESSING START. IF SWITCH=LESS MACHINE SIMPLY 

WHEN ASKED,ENTER THE STARTING ADDRESS OF DESIRED TEST 
CADDR th ge TESTXX TAG, WHERE XX MAY BE 1 THRU 24 
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SINGLE DATA PATTERN TEST (SA 250) 


A SPECIAL DECK (1 OR MORE CARDS) MUST BE PUNCHED TO RUN THIS TEST. 
ANY DATA PATTERN MAY BE USED, BUT IT MUST BE IDENTICAL IN ALL 
80 COLUMNS OF ALL THE CARDS Ge E. ONLY ONE PIECE OF DATA). 
LOAD THIS PREPARED DECK INTO Care I ER. 
PRESS CARD READER ‘MOTOR START’ AND YREAD START'’ (‘RESET'' ON 
DOCUMATION READER). 
LOAD SA 250. 
IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE 
Paece stant PRESSING START. IF SWITCH=LESS MACHINE SIMPLY 
WHEN THE CARD READER RUNS OUT OF CARDS IT WILL RING THE BELL 
RELOADING THE DECK AND PRESSING ‘READ START'’ (‘RESET’) ON THE CARD 
READER WILL CONTINUE THE TEST. 


OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 

AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST) 
SEE 4.1 

AT SA 210 OR 220 (ERROR FUNCTION TEST FOR CR11) 
SWOO=1 TO INHIBIT TESTING THE DARK=-LIGHT ERROR. 
iget =1 . Soy Ling Mad CURRENT SUBTEST 

AT SA 240 (SINGLE SUBTEST LOOP) 

SEE 4.1 FOR SR OPTIONS 

AT SA 250 (SINGLE DATA PATTERN TEST) 


SW15=1 TO HALT ON ERROR 
SW13=1 TO INHIBIT PRINTOUTS 
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5.2 
5.2.1 


5.2.2 


5.2.3 


SUBROUTINE ABSTRACTS 
BEGIN SA 200 


THE INSTRUCTION TESTS ARE RUN FIRST, FOLLOWED BY THE DAT 

ete oY TESTS ON THE REMAINING CARDS -— THE FIRST TEST DECK. 
THE END OF THE DECK THE BELL WILL_RING, AND IF SwWS=1 THE 

PROGRAM HALTS. _IF —h PROGRAM gy! ION DEPENDS ON THE NUMBER 

OF TEST DECKS LOADED. IF THERE ARE STILL CARDS IN 

THE PROGRAM WILL 


THE INPUT HOPPER, 
RUN THE DATA RELIABILITY TEST ON THE ENTIRE NEXT DECK. 
T END OF A HE PROGRAM 


BE 
URTHER CHECKS ARE MADE OF THE OFF-LINE TO ON-LINE OPERATIONS, 
AND et THE DATA RELIABILITY TEST IS RUN ON THE ENTIRE DECK. 
IF SW5=1, HITTING CONTINUE WILL RESUME PROGRAM OPERATION AFTER 
THE HALT. IF ALL OTHER SWITCHES WERE DOWN, FOR EXAMPLE, THE 
DATA RELIABILITY TEST WOULD THEN BE RUN ON THE NEXT DECK. THE 
OTHER SWITCHES AFFECT PROGRAM FLOW AS NOTED IN 4.1. 


SCOPE 


THIS SUBROUTINE CALL IS PLACED BETWEEN sath SUBTEST IN THE 
INSTRUCTION SECTION. IT RECORDS THE aor TING ADDRESS OF EACH 
SUB-TEST AS IT IS BEING ENTERED. IF A SCOPE LOOP IS REQUESTED, 
IT WILL JUMP TO THE START OF THE SUBTEST THAT THE SCOPE LOOP 
IS + Toate FOR. _IF SCOPE LOOP IS NOT yg THERE WILL 
BE 1 ITERATION ON THAT SUBTEST BEFORE THE NEXT SUBTEST 

IS ENTERED. SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBTESTS. 


HLT 


THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME 
OF FAILURE, AND THE CONTENTS OF THE PROCESSOR STATUS REGISTER. 
ai tue Gon THE LOCATION COUNTER WILL BE THE ADDRESS OF THE 


SEQ 0006 
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5.2.4 TTRAP 


THIS ROUTINE ALLOWS THE TRACE BIT TO BE SET AFTER THE FIRST 
LOOP OF THE PROGRAM. THE TRACE AY WILL BE SET ON ALTERNATE 
LOOPS OF THE INSTRUCTION TEST, AND ON ALL LOOPS OF THE CHANNEL 
Test UNLESS SWi2 IS SET. THE FIRST INSTRUCTION EXECUTED UPON 
TRAPPING IS AN ‘RTI’ WHICH RETURNS TO THE INTERRUPTED SEQUENCE. 
THIS CONTINUES UNTIL THE END OF THE PROGRAM LOOP IS REACHED. 


TRAPCATCHER 


THIS IS A_SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND 
INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF MEMORY. 


EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE 
NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH A_HALT (000000). 
THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A HALT AT THE TRAP 
LOCATION PLUS TWO. 


IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE aloes 
SIX. IT WILL CONTAIN THE CURRENT STACK ADDRESS. THE CONTENTS 
OF THE CURRENT STACK ADDRESS IS THE VALUE OF THE LOACATION 
COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED. 


ERCR11 (ERROR FUNCTION TEST) 


THIS TEST CHECKS OPERATION OF THE VARIOUS ERROR a et yo FEATURES 

OF THE G.D.1. OR THE DOCUMATION CARD READER. CARD READER OFF-LINE, 
INPUT HOPPER EMPTY, OUTPUT STACKER FULL, FEED ERROR. MOTION ERROR, 
STACK FAIL, AND DARK=LIGHT ERROR ARE ALL CHECKED. 


TESTX (SINGLE TEST LOOP) 


THIS ROUTINE ALLOWS A SINGLE a tree’ TO BE RUN CONTINUOUSLY FOR 
SCOPE LOOP PURPOSES. WHILE A SCOPE LOOP SWITCH OPTION EXISTS. 

IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH YOU WISH TO 
LOOP. IN SOME CASES (SUCH AS WITH INTERMITTENT FAILURES) THAT'S 
NOT EASY TO DO. THIS SUBROUTINE ALLOWS YOU TO LOAD THE ADDRESS 
OF ANY TEST FROM TESTO THRU TesT24" AND TESTA THRU TESTG AT THE 
HALT AND THEN GO DIRECTLY TO THAT TEST. 


CKSAME (SINGLE DATA PATTERN TEST) 


THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF DIFFICULT 

DATA ERROR PROBLEMS AND FACILITATE SOME CARD READER ADJUSTMENTS. 

IT CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED 

coe toe (AND ALL CARDS MUST BE IDENTICAL), CHECKING THE 
A_AGAINST A PATTERN SET UP ON THE SWITCHES INITIALLY. 

ERRORS ARE PRINTED ot ALONG WITH A COUNT OF THE TOTAL NUMBER 

OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS WHICH HAVE 

OCCURRED SINCE THE TEST WAS STARTED. 
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5.3 
5.3.1 


5.3.2 


6.1.1 


PROGRAM AND/OR OPERATOR ACTION 


OADING AND STARTING AT 200 WITH ALL SWITCHES DOWN IS es | 
CASE TESTING. A SINGLE ALPHANUMERIC DECK SHOULD BE RUN. THIS 
tes AN_ INSTRUCTION TEST FOLLOWED BY A_DATA RELIABILITY TEST. 
THE END OF THE DECK CHECKS ARE MADE OF THE as SETTINGS WHICH 
SHOULD BE AFFECTED, AND THE PROGRAM WAITS FOR AN INTERRUPT FROM 
NG K AT THE END OF THE FIRST DECK THE 
DECKS IN THE INPUT HOPPE 


OPERATOR SHOULD LOAD ONE OR MORE R_AND 
PRESS MOTOR START AND READ START (RESET ON THE DOCUMATION READER). 
WORKING PROPERL 


THE BELL WILL RING ONCE 
WHEN READ START IS PRESSED AND THE ENTIRE DECK WILL BE RUN THRU 
THE rally RELIABILITY PORTION OF THE TEST. IF, AFTER READING 

80 CARDS, THE INPUT HOPPER IS NOT EMPTY, THE PROGRAM WILL 
CONTINUE TO THE NEXT DECK. SWITCH OPTIONS MAY BE USED TO ALTER 
THIS FLOW AS NOTED IN SECTION 4.1. 


TO GO DIRECTLY_TO A SINGLE SUBTEST AND RUN IT CONTINUOUSLY, USE 
SA 240. SEE 4.3.3 FOR DETAILS. 

HE PROGRAM WILL CONTINUOUSLY LOOP THRU THE DESIRED SUBTEST. 
ERRORS 

ERROR PRINTOUT 

STANDARD PRINTOUT 

PRINTOUTS ARE IN A TWO-WORD FORMAT. THE FIRST IS THE PC+2 OF 


THE DETECTED ERROR, THE SECOND IS THE CONTENTS OF THE PROCESSOR 
STATUS REGISTER WHEN THE ERROR WAS DETECTED. 


SEQ 0008 
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eof 6.1.2 DATA ERROR PRINTOUT 
: 1¢ 
> THE HEADING IS PRINTED OUT ONCE PER TEST DECK. THE COLUMNS HAVE 1 
THE FOLLOWING SIGNIFICANCE: 1 
z 1¢ 
DECK m by ALPHANUMERIC OR BINARY , DEPENDING ON SwW4 1 
CARD CARD NUMBER WHERE THE FAILURE OCCURRED 1 
J COLUMN <THE COLUMN NUMBER WHERE 4 ee OCCURRED 1 
PATTERN =THE CORRECT CARD IMAGE DATA T SHOULD HAVE BEEN READ 1¢ 
% READ] =THE CARD IMAGE DATA ‘ READ TUICeS THIS IS WHAT WAS 1 
We READ THE FIRST TIME FROM CRB1 1 
363 READ2 <=THIS IS WHAT WAS IN CRB1 AFTER A BRIEF TIMING LOOP. IT 1 
364 SKOULD BE THE SAME AS THE PREVIOUS READING. 1 
365 CODED <=-THIC IS WHAT THE DATA SHOULD BE IN ENCODED FORM 1 
6 READ -THIS IS WHAT WAS READ BY ADDRESSING THE ENCODED BUFFER 1 
1 
368 DATA ERRORS NOT TRACED TO CARD READER HARDWARE INCLUDE: 1 
369 A. SWO4 NOT SET TO TYPE OF DECK USED 1 
370 B. CARD MISSING 1 
371 C. CARD DECK OUT OF PROPER SEQUENCE 1 
378 D. DAMAGED CARD 1 
1¢ 
$e *e. | SINGLE DATA PATTERN PRINTOUT ¥ 
1 
376 THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING WITH EACH uU 
as ERROR PRINTOUT. THE COLUMNS HAVE THE FOLLOWING SIGNIFICANCE: 1( 
1 
379 COLUMN <THE COLUMN NUMBER WHERE THE FAILURE OCCURRED. 
380 READ1 -DATA IS READ TWICE. THIS IS THE ci READING. 
381 READ2 =THIS IS WHAT WAS READ THE SECOND TIME. 
382 CARDS -THE TOTAL NUMBER OF CARDS (IN OCTAL) THAT HAVE BEEN RUN 
383 SINCE THE TEST WAS STARTED. 
384 ERRORS <THE TOTAL NUMBER OF ERRORS DETECTED (IN OCTAL) SINCE 
= THE TEST WAS STARTED. 
4 6.1.4 “BIT 8 WAS SET" 
389 AT THE BEGINNING OF MOST SUBTESTS, BIT 8 (OFF-LINE) IS CHECKE 
390 TO MAKE SURE THAT THE READER IS NOT OFF-LINE. IT IS ALSO CHECKED 
391 IN THE DATA TEST WHEN AN INTERRUPT OCCURS DUE TO BIT 15 BEING 
392 SET. IF BIT 8 IS SET WHEN IT WAS NOT SUPPOSED TO BE, THE ERROR 
393 MESSAGE ‘BIT, 8 WAS SET. REMEDY THE ERROR CONDITION AND PRESS 
394 *CONTINUE’.** IS PRINTED OUT. THE “py iny THEN HALTS. SINCE 
395 THE CARD READER GOES OFF-LINE WHEN A CARD ~ yor FUNCTION ERROR 1 
396 ss (CARD JAM, PICK FAIL, ETC.). THE CARD READER ERROR MUST 1 
397 BE FIXED AND THE READER MUST BE PUT BACK ONLINE BEFORE THE 1 
Pa PROGRAM CAN BE CONTINUED. . 
an 6.2 ERROR RECOVERY 1 
1 
402 IN GENERAL, TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND 1 
403 CONTINUE. IF THE ‘HALT ON ERROR’’ SWITCH IS SET, HITTING 1 
404 CONTINUE WILL RECOVER. IF THE PROGRAM HANGS UP IN A LOOP, THE 1 
405 ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER thy A 7 1 
“07 Beenie =_— IN THE TRAP AND VECTOR AREA THE PROGRAM MU 4 
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RESTRICTIONS 

STARTING PROCEDURE 

NONE 

OPERATIONAL RESTRICTIONS 

COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA200) 


IF A STANDARD TEST DECK IS NOT BEING USED, SW7 MUST BE SET 
TO INHIBIT RUNNING THE DATA RELIABILITY PORTION OF THE TEST. 


WHEN USING THE STANDARD TEST os THEY ate BE IN PROPER SEQUENCE 
AND_IN GOOD C ION. IT IS A GOOD IDEA TO NUMBER THE CARDS 
IN EACH DECK AS SOON AS THE DECK IS RECEIVED. 


IF THE CR11 USES AN M829 MODULE SW10 MUST BE SET IN THE 
SWITCH REGISTER. 


ERROR FUNCTION TEST (SA 210 FOR G.D.1. READER - SA 220 FOR DOCUMATION READER) 


THE ERROR FUNCTION TEST eat fedtx SPARE CARDS, AS IT BENDS SEVERAL. 
ALSO, TO RUN THE DARK=LIGHT CHECK 2 CARDS MUST BE SPECIALLY 

PREPARED. THE TEST WILL TYPE OuT A REQUEST FOR THESE CARDS WHEN 
THEY ARE NEEDED. TO MAKE THEM: 


1. TEAR A SMALL PIECE FROM THE yy EDGE OF ONE CARD. 
2. TAPE 2 OTHER CARDS TOGETHER TO MAKE "'LONG'* 
CARD - IT ONLY NEEDS TO BE ABOUT 1/2 INCH LONGER THAN 
A REGULAR CARD 


SINGLE DATA PATTERN TEST (SA 250) 


A SPECIAL DECK (ONE OR MORE CARDS) MUST BE PREPARED. ALL COLUMNS 
OF ALL CARDS ARE PUNCHED IDENTICALLY, USING A DATA PATTERN WHICH 
WILL TEST THE PROBLEM BEING DIAGNOSED. 
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MISCELLANEOUS 
EXECUTION TIME 

NOT APPLICABLE 

CARD DECK DESCRIPTION 
ALPHANUMERIC 


REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT or TAG ALPCD 

IN THE bist ie FOR THE CODES PUNCHED FOR EACH OF 80 COLUMNS 

OF THE FIRST CARD. THE FIRST VALUE GIVEN FOR A COLUMN IS THE CARD 
IMAGE OF THAT COLUMN, WHILE THE SECOND VALUE IS THE ENCODED FORM 
OF THE SAME PATTERN. EACH SUCCESSIVE CARD IN THE DECK USES THE 
SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE LEFT. 


BINARY 


REFERENCE THE BINARY DATA TABLE BEGINNING 7 THE TAG BINCD IN 

THE LISTING FOR THE CODES PUNCHED FOR EACH OF THE 80 COLUMNS OF 
THE ist CARD. AS WITH THE ALPHANUMERIC DECK EACH SUCCESSIVE wee 
HAS THE SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE LEFT 


SPECIAL NOTES 


IF THE CARD READER GOES OFF=LINE BEFORE THE END OF A CARD, 
BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER. 


THE CARD READER GOES OFF-LINE DUE TO ‘INPUT HOPPER EMPTY‘ AFTER 
THE 80TH COLUMN OF THE LAST CARD IS READ, BUT BEFORE CARD DONE 
OCCURS. THUS, THE SPECIAL CONDITION BIT IN THE CSR WILL BE 

SET BEFORE CARD DONE ON THE LAST CARD. 


IF THE CARD READER USES AN M829 MODULE, SW10 MUST BE SET 
IN THE SWITCH REGISTER. WITH THE MB29 MODUL D 


MODULE, SwW10 MUST NOT BE SET. 
MODULE, CARD DONE IS ISSUED AFTER THE LAST 
CARD IN THE INPUT HOPPER IS READ. 


IF BIT O OF THE CRS y oy IMMEDIATELY AFTER BEING SET, 
THE READING OF A CARD MAY NOT OCCUR. SINCE THIS BIT IS WRITE 
ONLY, A BIS OR BIC DONE AFTER SETTING BIT 0 MAY CLEAR THE BIT 
AND PREVENT THE READ FROM OCCURRING. 
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TESTING CR11°S WITH NON-STANDARD ADDRESSES 


BY SUBSTITUTING INTO int LOCATIONS KCRS ~ oY 
THE ey yt OF THE CRS, CRB1, AND CRB2 OF ACARD. READER 
ASSIGNED A NON-STANDARD ADDRESS, AND SUBSTITUTING ITS INTERRUPT 
VECTOR ADDRESS jg ADINT, A CRi1 MAY BE TESTED AT ANY 

ADDRESS ASSIGNED TO IT. 


PROGRAM DESCRIPTION 


THIS SET OF TESTS IS DESIGNED TO CHECK ALL OPERATIONS OF THE CR11 
CARD READER, WITH THE NECESSARY EXCEPTION THAT TIMING IN MOST 
CASES IS ONLY PARTIALLY TESTED. A SPECIAL TEST an INCLUDED TO 
CHECK OUT THE ERROR FUNCTIONS OF THE G.D. .° i he tADER, WHICH 

PRINTS OUT DIRECTIONS AS IT GOES ALONG. TEST IS ALSO INCLUDED 
TO ISOLATE DIFFICULT DATA ERRORS USING A SPECIAL TEST DECK 
PUNCHED BY THE USER. 


LISTINGZ 


3 
w 


BeseoRaess 


5 
5 
5 
5 
5 
5 
5 
5 
5 
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ab ah aol oh a ah ach ld lh 
DONAUEWN sO 


-ABS 
-TITLE CZCRACO CR11 DIAG TSTS 
-NLIST MD,MC,CND 


LIST ME 

“DIAGNOSTIC FOR CR11 CARD READER 

COPYRIGHT 1970,1979, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
7BY RICK FADDEN 


; CHANGE HISTORY 
; (MODIFIED AUGUST-71 FOR DOCUMATION CARD READER (JOHN RODENHISER)) 
2 (MODIFIED APRIL-72 FOR HARDWARE ECO) 
MODIFIED MARCH 1976 FOR SWITCH-LESS PROCESSORS BY RON PLATUKIS 
ZREV. CO, OCTOBER 1979 TO BE ASSEMBLED USING CZCRAC.SML, WHICH 
WILL ENABLE ABSOLUTE MODE ADDRESSING (AMA). 


2 STARTING ADDRESSES ARE: 
200= — AND DATA TEST FOR “ CR11 
TION TEST OF CR11 (GDI) 
20=ERROR FUNCTION TEST OF CR11 USING DOCUMATION READER. 
240=SINGLE TEST LOOP 
250=READ SINGLE DATA PATTERN TEST 


; SWITCH oeisl ran tit of FOR THE INSTRUCTION AND DATA TEST ARE: 
DECK. END OF A STANDARD 80 CARD 
=0 TO CONTINUE FROM ONE DECK TO THE NEXT. 


AFTER THE LAST DECK IN THE HOPPER IS 
UN, THE PROGRAM WAITS FOR THE CARD READER 
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CONINUOUSLY FROM THEN ON 
"1s 


WHEN THE INPUT HOPPER RUNS OUT OF CARD s! 

TO INDICATE THAT THE CR11 BEING TESTED USES THE 
M829 MODULE 

TO INDICATE THAT THE CR11 BEING TESTED USES THE 


TO INHIBIT SUBPROGRAM ITERATION 
(NOTE THAT IF PROGRAM FLOW IS ALLOWED TO ENTER THE 
DATA SUBTEST, DATA ERRORS au OCCUR SINCE THE 
CARD COUNT WILL BE INCORRECT. 
TO INHIBIT TRACE TRAPP ING 
TO INHIBIT PRINTOUT 
FOR SCOPE LOOP 
TO HALT ON ERROR 


177776 PSR=177776 
NOP=240 


HL T=EMT 
SCOPE=EMT+1 
CNTLU=EMT +2 
KBINTT=EMT+3 


CONTAINS ADDRESS OF INTERRUPT VECTOR 
ZUSED Aon TIMING, ETC. 


CONTAINS ADDRESS OF CARD READ STATUS REGISTER 
3 CONT — ADDRESS OF CARD READER BUFFER (12 BIT DATA) 


SCRATCH 
STACK POINTER 
PC=%7 >PROGRAM COUNTER 
;LOAD TRAP CATCHER INTO LOCATIONS 0 THRU 377 
;LOAD TRAP VECTORS 
TRTRAP 
340 


.=30 
EMTSRV 
340 


1 
1, 
1, 
1, 
1 
1 
1 
1 
1 
1 
1 
. 
1 
. 
1 
1 
1 
1, 
1, 
1 
1 
1 
1 
1 
1, 
1 
1 
1 
1 
1 
1 
1 
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CZCRAC.P11 SEQ 0014 CZCR 
605 i 
60 000046 246 1 
607 000046 006466 LOGIC iF 
608 1 
609 3 
$10 :SOFTWARE SWITCH REGISTER LOCATIONS 13 
612 000174 =174 13 
613 000174 000000 DISPREG:0 3 
616 000176 000000 SWREG: 0 4 
616 ZLOAD STARTING ADDRESS AREA 13 
617 000200 .=200 13 
618 012706 MOV #STACK, SP 13 
619 000206 000137 000726 JMP BEGIN ZNORMAL STARTING ADDRESS FOR G.D.1. 100 READER 13 
620 000210 012706 MOV WSTACK, SP 12 
621 000214 000137 007200 JMP ERCR11 :STARTING ADDRESS FOR CR11 ERROR FUNCTION TEST (G.D.1) 1a 
622 000220 012706 MOV WSTACK, SP 13 
625 000224 000137 007206 JMP ERCM11 :STARTING ADDRESS FOR CR11 ERROR FUNCTION TEST (DOCUMATI 1 
625 .=240 13 
626 000240 012706 MOV WSTACK, SP 13 
627 000244 000137 010676 JMP TESTX z STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS 13 
628 Y SINGLE SUBTEST i 
629 000250 012706 000600 MOV WSTACK,SP 13 
630 000254 000137 011014 JMP CKSAME zSTARTING ADDRESS OF TEST TO READ A SINGLE DATA 1 
631 :PATTERN CONTINUOUSLY 1: 
632 ZLOAD POINTERS AND GENERAL STORAGE 13 
633 000600 .=600 13 
634 000600 000000 STACK: 0 zSTACK POINTER INITIALIZED TO POINT HERE 13 
635 000602 000000 INTFLG: 0 [CONTAINS LEVEL THAT INTERRUPT IS FOUND AT 13 
636 000604 000230 INTVC: 230 SADDRESS OF CARD READER INTERRUPT VECTOR 13 
637 000606 177560 KBCSR: 177560 1 
638 000610 177562 KBDBR: 177562 1 
639 000612 177564 TCSR: 177564 ZADDRESS OF TELETYPE STATUS REGISTER 13 
640 000614 177566 TDBR: 177566 sADDRESS OF TELETYPE DATA BUFFER 13 
641 000616 177570 SwR: 177570 1: 
S42 000620 177570 DISPLAY: 177570 1: 
643 000622 000000 1: O 1: 
644 000624 177777 TIFLG: <=1 1 
645 000626 000000 TIB: 0 i 
646 000000 CSNT: 0 1: 
647 000632 000000 FLAG: 0 :SET TO ONE FOR MARK-SENSE CARD READER 13 
648 000634 177160 KCRS: 177160 TADDRESS OF CARD READER STATUS REGISTER 1 
649 000636 177162 KCRB1: 177162 SADDRESS OF CARD READER DATA BUFFER 1 
650 000640 177164 CRB2: 177164 ;ADDRESS TO READ ENCODED DATA 1 
651 000642 000002 TRTRAP: RTI RETURN FROM TRACE LOOP 1 
652 000644 000000 TRFLG: 0 TOGGLED TO SWITCH BETWEEN TRACE TRAPPING AND NORMAL FLO 4 
655 000646 000000 Cc: O : STORES PROCESSOR STATUS WHEN TRACE TRAP MUST BE CLEARED 1 
655 000650 000000 ERFLG: 0 :SET TO ZERO TO OUTPUT DATA ERROR HEADING 1 
657 1: 
658 s INITIALIZE CSR AND DBR POINTERS 1: 
659 000652 004737 012152 SETUP: JSR %7, TOUT 13 
660 000656 10400 13 
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661 104002 
012144 #1, 1TMAX :SET ITERATION MAXIMUM TO 1 ITERATION 
KCRS CRS :SET UP REGISTER POINTERS 
INTVCADINT ZLOAD ADDRESS OF INTERRUPT VECTOR 
INTFLG SONITIALIZE INTERRUPT FLAG 


INITIALIZE TRACE FLAG. 
177776 MOV ;SETUP PROCESSOR STATUS 
T %7 ; RETURN 


BEGIN: 


#SUBT1 ,R2 
el INITIALIZE POINTERS AND FLAGS 


BR TE 
RESTRT: —— 


:GO TO INSTRUCTION TESTS 


1$: CHECK FOR TRACE TRAPPING 
BNE TRAPX zIF SET, TRACE TRAP 
177776 ~=NOTRP: IF ZERO, CLEAR TRACE BIT 
BR TEST :GO TO INSTRUCTION TESTS 
177614 TRAPX: :CHECK Swi 
001370 BNE TRP BRANCH IF SET TO CLEAR TRACE BIT 
012737 177776 SET TRACE BIT 


2 TEST FOR CORRECT INITIALIZATION OF STATUS REGISTER 
wean 012150 TEST: MOV MTESTIA,RETURN ;SETUP SCOPE LOOP RETURN ADDRESS 


TESTI: 
TESTIA: %7,CKBIT8 CHECK FOR OFF-LINE SET 
000646 MO PSR ,PROC STORE PROCESSOR STATUS 
PSR CLEAR TRACE BIT 


L 
a ae COUNTER 
T TO BE CERTAIN 
THAT ALL CARDS ARE 
ae 2 THRU BEFORE ISSUING 
177776 MOV RESTORE PROCESSOR STATUS 
SEND OUT INIT 
7CHECK FOR STATUS REGISTER ALL ZERO 
BRANCH IF OK 


HLT STATUS REGISTER NOT CORRECTLY INITIALIZED 
SONLY BITS Bag A, OF THE STATUS REGISTER SHOULD BE ABLE TO BE SET TO ONE 


AND READ BA ONE 
177776 BIS #177776,aCRS :SET ALL_BITS BUT 0 
000102 a #102,aCRS ONLY nl _— 6 SHOULD BE SET 


+6 ; BRANCH 
: STATUS orten te DIDN'T CONTAIN 102 
BR TEST2 BRANCH AFTER FAILURE 
CLEARING STATUS REGISTER SHOULD *CLEAR BITS 1 AND 6 
acRs : CLEAR 


BITS 1 AND 6 
acRs CHECK FOR ALL BITS CLEAR 
. :BRANCH IF 
;BIT 1 AND/OR BIT 6 DIDN'T CLEAR 


177776 


CEES 


SUR TOSEIRAR 
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3START SHOULD CAUSE CARD DONE WITHIN 1 SECOND 
BIT 0 SHOULD ALWAYS READ AS BEING EQUAL TO ZERO 
JSR %7,CKBIT8 CHECK FOR CFF=LINE SET 
PSR, PROC 3 STORE a gH PROCESSOR STATUS 
PSR CLEAR TRACE BIT 
i START aro A CARD 


; K 
BRANCH _IF NOT SET 
BIT 0 READ AS A ONE 


pry) 
i ee ee oe ae ee ee 


177776 V C,PSR ;RESTORE PROCESSOR STATUS 
40060, acrs :CHECK CARD DONE 
:CONTINUE IF SET 
[CARD DONE DIDN'T SET WITHIN 400 MS 
TEST3 [NOTE THAT FAILURE COULD BE DUE TO READ 


NOT BEING RESET 
052713 : #40000,aCRS [DATO TO STATUS REGISTER SHOULD CLEAR 
032713 B a :CARD DONE 


. BRANCH IF IT DID 
DATO DIDN'T CLEAR CARD DONE 


sssssesssessssssssss 


88 88 
WY UNS SRSA SCR RSE RE WRY 


REASAASU REN ISVa NO RONsasas 


TEST3: COPE 
;BUSY (BIT 9) SHOULD BE SET BY READING A CARD 
;1T SHOULD REMAIN SET UNTIL CARD DONE SETS, WHICH SHOULD CLEAR IT 
JSR %7,CKBIT8 :CHECK FOR OFF-LINE SET 
acrRs s INITIALIZE STATUS REGISTER 
[READ A CARD 


acRS 
#1000 ,aCRS 
LOOPS 


: SET 
sREADING A CARD DIDN'T SET BUSY 


CHECK CARD DONE 

BRANCH IF SET 

CHECK BUSY 

BRANCH IF STILL SET 

>CHECK CARD DONE 

:GO TO NEXT TEST IF SET 

7BUSY CLEARED BEFORE CARD DONE SET 
BR ESTS 

DONE3 : :CHECK BUSY 

BE TEST4 7GO ON TO NEXT TEST IF CLEAR 
HLT ;CARD DONE DIDN'T CLEAR BUSY 


TEST4: SCOPE 

3A TIMING ERROR SHOULD OCCUR IF DATA IS NOT READ AND NEW DATA COMES IN 

zA_TIMING ERROR SHOULD SET THE SPECIAL CONDITION BIT WHEN CARD DONE OCCURS 
:COLUMN READY SHOULD BE CLEARED BY THE TIMING ERROR AND PREVENTED FROM RESETTING 
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sBITS 11,74, AND 15 oo BE iT BY A DATO TO THE STATUS REGISTER 
inked 011434 JSR %7, INIT :INI TIALIZE STATUS REGISTER 
CONT NITIALIZE COUNTER 


008215 TINITIATE READ 
13 140200 LOOP4: 7140200, @CRS WAIT FOR SPECIAL CONDITION, CARD DONE, 
OR COLUMN READY 


LOOP4 LOOP IF NONE OCCURRED 
140000 ae — acrs ; SPECIAL oe OR CARD DONE? 
COUNT ?NO, COUNT COLUMN READYS 
acRs :WAIT FOR COLUMN READY TO CLEAR 
LOOP4 SIF CLEAR, RETURN TO LOOP4 
#140000, @CRS ;CHECK FOR SPECIAL CONDITION OR CARD DONE 
CkK4 : BRANCH IF EITHER SET 
LOOP4B sOTHERWISE, CHECK AGAIN 
#40000, aCRS CHECK CARD DONE 
- +6 BRANCH IF SET 
cOnTé SPECIAL CONDITION SET BEFORE CARD DONE 


acRs :CHECK SPECIAL CONDITION 
BRANCH IF SET 


+4 

:SPECIAL CONDITION WASN'T SET 
#4000, aCRS CHECK TIMING ERROR 
+4 BRANCH IF SET 


: TIMING ERROR WASN'T SET 
COUNT :C OF COLUMN READYS 
CURRED 


+6 
6 = COLUMN READY NEVER OCCURRED 
.+ 


+4 ;BRANCH IF ONLY ONE OCCURRED 

;COLUMN READY OCCURRED MORE THAN ONCE 
acrs : CHECK COLUMN READY 
+4 ‘BRANCH IF NOT SET 

;COLUMN READY WASN'T CLEARED 
acrs ;CLEAR BITS 11,14, AND 15 VIA DATO 
tes @cRS :CHECK 
7 


BITS 11,14, AND 15 WEREN'T ALL CLEARED 


TESTS: SCOPE 
SETTING READ SHOULD CAUSE COLUMN READY TO SET 80 ¥+y BEFORE CARD DONE SETS 
READING THE DATA BUFFER SHOULD CLEAR COLUMN READY AND PREVENT A TIMING ERROR 
JSR %7, INIT fg} 3 STATUS REGISTER 
Hiate te COUNTER 
: INITIAT ER 
LOOPS : #120200,@CRS WAIT FOR COLUMN READY, CARD DONE 
= SOR SPECIAL CONDITION 
#40000, @CRS :CARD DONE? 
CK5 :YES, BRANCH 
acRs SCHECK BIT 15 
-+6 SKIP ERROR HALT IF NOT SET 
7BIT 15 WAS SET 
:GO TO NEXT TEST 
:CHECK FOR 80 
BRANCH IF 80 OR MORE WITHOUT CLEARING READY 
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COUNT 
acRB1 
acrs 
+4 


LOOPS 
-_— acrs 


: INCREMENT COUNTER 

CLEAR READY 

sMAKE SURE IT CLEARED 

sBRANCH IF IT DID 

READING DATA BUFFER DIDN'T CLEAR READY 
CHECK TIMING ERROR BIT 

BRANCH IF NOT 


SET 
IMING ERROR WA 


LT WAS SET 
NOTE THAT IF COLUMN reaby SET MORE THAN 80 TIMES 
iA poten gn WILL OCCUR AND THE COUNT WILL BE 79 (=117 OCTAL) 


TEST6: SCOPE 

A TIMING ERROR 

zA DATOB TO THE 
JSR 


LOOP6: 


OUNT, #79. 
+4 


@CRS #40200 
+4 

@CRS 

acRS #200 

. +4 


acRB1 
acRs 
° +4 


SHOULD SET A Uy at Sa CARD DONE OCCURS, oe tt IT OCCURS AT COLUMN 8 


LOW BYTE OF 
%7, INIT 
AP. COWNT 
stre 

72 

@CRB1 

COUNT 

LOOP6 
#144000, aCRS 
#40000, aCRS 
ERR6 

#4000, aCRS 
OF F6 


acRs 
+4 


acrs 
#40000, aCRS 
OF F6 


acRs 
#144000 ,aCRS 
TEST? 


BRANCH AFTER ERROR 
‘BRANCH IF 80 C COLUMN READYS OCCURRED 
[COLUMN READY DIDN'T OCCUR 80 TIMES 
SBEFORE CARD DONE 


ONLY CARD DONE AND COLUMN READY SHOULD BE SET 


STATUS REGISTER IN WRONG STATE 
SSHOULD CLEAR DONE BUT NOT READY 
: CHECK o ad READY SET 


; STATUS REGISTER IN WRONG STATE 


NG DATA BUFFER SHOULD CLEAR COLUMN READY 


AD 
SCHECK STATUS REGISTER 
ZBRANCH IF ALL BITS ZERO 
STATUS REGISTER NOT EQUAL TO ZERO 


HOULD CLEAR BITS 15,14 
: INITIALIZE 
SETUP COUNTER 
START READING A CARD 
WAIT FOR COLUMN READY 


CLEAR COLUMN READY 
7GO THRU LOOP FOR 1ST 78 COLUMN READY'S 


WAIT FOR CARD DONE OR TIMING ERROR 

OR SPECIAL CONDITION 

:CARD DONE SET? 

zYES, 2 POSSIBLE TEST FAILURES 

CHECK TIMING ERROR 

IF NOT SET, READER IS PROBABLY OFF-LINE 
CHECK COLUMN READY 

BRANCH IF CLEAR 

TIMING ERROR DIDN'T CLEAR READY 

SWAIT FOR SPECIAL CONDITION 


CHECK CARD DONE 
J Ay SET, ne Y, a OF F=L INE 


BRANCH IF CLEA TEST 
:DATOB TO LOW BYTE OF CRS DIDN'T CLEAR 
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:BITS 15,14 AND/OR 11 
TEST? :GO TO NEXT TEST 
#400, aCRS : CHECK Bit 8 
TEST? H IF SET 

:BIT "3 WAS SET, 8 WASN'T 
TEST? TO NEXT TEST 
#4000.acRS S TIMING ERROR SET? 
.* 


NO, BRANCH 

TIMING ERROR DIDN'T SET BEFORE CARD DONE 
TEST? :GO_ TO NEXT TEST AFTER ERROR 

TIMING ERROR WASN'T SET 


TEST?: OPE 

NOT READING THE EIGHTIETH COLUMN OF DATA FROM THE BUFFER 

SHOULD CAUSE _A_ TIMING ERROR ON THE FIRST COLUMN OF THE NEXT CARD 
SETTING EJECT SHOULD CLEAR TIMING ERROR, AND BIT 15 SHOULDN'T SET 
: INCB SHOULD START A READ 


%7, INIT : INITIALIZE 
acRs 


TSTART READ 
#80. , COUNT S INITIALIZE COUNTER 

#140200,aCRS § :TEST FOR ERROR, DONE OR READY 
LOOP7 : ET 


WAS SET 
:GO_ TO NEXT TEST AFTER ERROR 
CHECK FOR CARD DONE 
;BRANCH IF SET 


>; COUNT 

:IF 80TH COLUMN READY, BRANCH 
;CLEAR DONE 

;LOOP 

sWAIT FOR DONE OR SPECIAL CONDITION 


; CHECK oF at CONDITION 
;BRANCH NOT SET 

ISPECIAL CONDIT ION WAS SET 
:GO TO NEXT TEST AFTER ERROR 
:TEST FOR 80 COLUMN READY'S 
BRANCH IF OK 


COLUMN READY DID NOT OCCUR 80 TIMES 
:GO TO eH TEST AFTER ERROR 


; BRANCH NOT SET 
: TIMING ERROR DIDN'T CLEAR READY 


acrs ZSET EJECT 
#600, acrs :CHECK TIMING ERROR 
“BRANCH IF CLEARED 
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; TIMING ERROR NOT CLEARED BY DATOB 
TESTS :G0 TO NEXT TEST AFTER ERROR 
#140000, aCRS WAIT FOR DONE OR SPECIAL CONDITION 


#400, aCRS :CHECK BIT 8 

TESTS ?BRANCH IF READER OFF=LINE 

acrs SSPECIAL CONDITION SHOULDN'T SET 

+4 TSINCE DATOB CLEARED LIMING ERROR 
‘BIT 15 WAS SET, 8 WASN 


REERRE ECS 
RNBENSRLS 


AVAILABLE IN THE DATA BUFFER FOR AT LEAST 1.0 MILLISECOND 
011434 J %7, INIT s INITIALIZE STATUS REGISTER 
177776 PSR ,PROC SSTORE CURRENT PROCESSOR STATUS 
177776 C PSR CLEAR TRACE BIT 

acRS START READ 
140200 : #140200,aCRS [WAIT FOR COLUMN READY OR CARD DONE 

° OR SPECIAL CONDITION 
040000 #40000 ,aCRS CARD DONE? 

DBRCK8& : YES, GO TO CHECK STROBING OF DBR 
acrRs CHECK BIT 15 


-+6 


; Ss 
TESTS :GO TO NEXT TEST AFTER ERROR 
acRs DATO TO CRS = SHOULDN'T CLEAR BUSY OR READY 
#1200,aCRS ; CHEC AND READY 


+6 


: ONG STATE 
tie g 7GO TO NEXT TEST AFTER ERROR 
STORE DATA 
INITIALIZE COUNTER 
sWAIT FOR 1 MILLISECOND (APPROX.) 


:DATA UNCHANGED? 
CONT INUE 
;DATA NOT AVAILABLE FOR 1.0 MILLISECONDS 
TO NEXT TEST AFTER FAILURE 
‘STORE ENCODED DATA IN REGISTER 2 
[SET UP COUNTER 
READ CARD-IMAGE DATA BUFFER 
[BRANCH IF UNCHANGED 
;CRB1 READ INCORRECTLY 
[BRANCH TO RESTORE PROCESSOR STATUS AND EXIT 
oan hy DATA BUFFER 
H IF UNCHANGED 
‘eRee READ INCORRECTLY 
“BRANCH AFTER FAILURE 
> COUNT DOWN 


BN CONT8 ;LOOP IF NOT DONE 
013757 000646 177776 RESTB: PROC ,PSR RESTORE PROCESSOR STATUS 


104001 


TEST9: SCOPE 
353 ¥ SHOULD PREVENT FURTHER COLUMN READY'S 
ARD DONE SHOULD STILL OCCUR, AND TIMING ERRORS SHOULD BE 


mk kk kk ek ek ek eh a ed dd od td hd oh ot hd ot St OS 


PRPREREL SETS tot Lt 
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97 
998 002 gle ia 0114 
999 002 013737 177776 000646 
1000 002312 0050357 177776 
1001 002316 w028) : 
\one 002 105 
1003 002322 1776 
1004 002 052713 000002 
1005 3 005714 
1006 002332 005001 
O07 002334 032713 044200 
1008 1004 
1009 002342 5201 
1010 002344 001373 
1011 346 104000 
1012 002350 11 
1013 002352 032713 040000 
1014 002356 001006 
1015 360 032713 000200 
1016 002364 001402 
1017 002366 104000 
1018 002370 000401 
1019 002372 104000 
vost 002374 013737 000646 177776 
1022 
1023 002402 104001 
1024 
1025 737 011434 


1027 002414 052737 000340 177776 
3760 000002 
1029 002430 042737 000340 177776 


1032 446 001775 
1033 002450 016037 000002 177776 
1034 002456 105013 
1035 460 
036 002462 14 
1037 002464 032713 040000 
1038 002470 1001 
1039 002472 
10460 002474 
1041 002476 005713 
1042 
1043 002502 
10464 002504 105713 
1045 
1046 10 


1048 002514 012710 000232 
1049 002520 005037 000232 
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~teezennaae * IF a Fon Yi COLUMN Send IS_CLEAR 


WAITS: 


CK9: 


REST9: 


ee 6 


TINT10: 


CONT10: 


TEST11: 


SC 


SCOPE 


PSR, »PROC 


acrs 
acRs 


#2, aCRS 
acre 


C 
ee 


REST9 
PROC ,PSR 


OPE 
ARD = ene anit AN INTERRUPT 
ATINT10,@ADINT 


#34 PSR 
PSR, 2(ADINT) 
a0 rats 
#40000, 


eADINT), PSR 
CRS 

CONT10 

#40000 ,aCRS 

+4 

(SP)+,(SP)+ 

acRs 


+4 


acRs 
+4 


acrs 
#232,@ADINT 
aw232 


ED 
ITIALIZE ara a 
sSAVE_ PROCESSOR STATUS 
TRACE BIT 


CLEAR 
START READ 
WAIT FOR COLUMN READY 


sSET EJECT 

;CLEAR_COLUMN READY 

SLOOP TAKES 11.4 MICROSECONDS ONCE THRU 
WAIT FOR CARD DONE, TIMING ERROR, OR 

; COLUMN READY 

TIME FOR oat + SECOND 

: CONT INUE WAIT 

NO CARD DONE OCCURRED WITHIN 3/4 SECOND 
CONTINUE AFTER FAILURE 

CHECK FOR CARD DONE 


CHECK COLUMN READY 
BRANCH IF NOT SET 
COLUMN READY WAS SET 


sEJECT DID NOT PREVENT A TIMING ERROR 
RESTORE PROCESSOR STATUS 


2 INITIALIZE 

;LOAD RETURN POINTER 

7SET PROCESSOR TO LEVEL 7 

;LOAD RETURN PROCESSOR STATUS 

SET PROCESSOR PRIORITY TO 0 

:SET EJECT, “yo ed ENABLE, AND READ 


[WAIT FOR CARD 


RESTORE PROCESSOR TO HIGHEST PRIORITY 
;CLEAR_INTERRUPT ENABLE 
NO INTERRUPT OCCURRED 


CHECK CARD DONE 
BRANCH IF SET 


:CARD DONE NOT SET 

SRESTORE STACK POINTER 

MAKE SURE NO ERROR OCCURRED 
:BIT 15 WAS 


;DISABLE INTERRUPTS 
[CHANGE INTERRUPT os ADDRESS 
;TO CAUSE A HALT IF AN INTERRUPT OCCURS 


; COLUMN READY SHOULD CAUSE AN INTERRUPT 


SEQ 0021 
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%7, INIT INITIALIZE 

arintl ,@ADINT ;LOAD RETURN POINTER 

177776 SET PROCESSOR STATUS TO LEVEL 7 

000002 MOV PSR 2(ADINT) ;LOAD RETURN PROCESSOR STATUS 

177776 #340,PSR SET PROCESSOR PRIORITY TO 0 
oie acrs ;SET_READ AND INTERRUPT ENABLE 
acR WAIT FOR COLUMN READY 


177776 3(ADINT) .PSR RESTORE PROCESSOR TO HIGHEST PRIORITY 
acrs [CLEAR INTERRUPT 
COLUMN READY DID NOT INTERRUPT 


CLEAR INTERRUPT ENABLE 
sMAKE SURE COLUMN READY IS SET 
sBRANCH IF SET 


> COLUMN READY WASN'T SET 
C (SP)+, (SP) + ZRESTORE STACK POINTER 
CONT11: #232 ,QADINT + CHANGE INTERRUPT RETURN ADDRESS 
C ay23e :TO CAUSE A HALT IF ANOTHER INTERRUPT OCCURS 





TEST12: SCOPE 
> CARD ee 5 * T CAUSE AN aarti PROCESSOR IS AT LEVEL 7 PRIORITY 


47, INIT : INITI 
#TINTI2.@ADINT SETUP. RETURN 
177776 #340,P :SET PROCESSOR TO LEVEL 7 PRIORITY 
000002 PSR SADINT) [LOAD RETURN PROCESSOR STATUS 
#103, aCRS [SET EJECT, INTERRUPT ENABLE, AND READ 
#40000,.acRS ‘WAIT FOR CARD DONE 


BR -+6 + gl 3 IF NO INTERRUPT OCCURRED 
TINT12: AN_ INTERRUPT OCCURRED 
C (SP) +, (SP) + “RESTORE STACK POINTER 
acrs ; CLE TER 


#232, @ADINT CHANGE I RESS 
av232 :TO CAUSE A HALT IF AN INTERRUPT OCCURS 


FIND THE LEVEL AT WHICH AN INTERRUPT OCCURS 

;PRINT OUT A MESSAGE STATING THIS LEVEL IF IT IS OTHER THAN THE STANDARD (LEVEL 6) 
SMAKE CERTAIN THAT IT ALWAYS OCCURS AT THIS LEVEL 

: THE MESSAGE STATING THE LEVEL IS PRINTED ONLY ONCE, AND THE PROGRAM MUST 

BE STARTED OVER AT LOCATION 200 FOR IT TO BE PRINTED AGAIN 


;TEST_FOR AN INTERRUPT ON LEVEL 7 
TEST13: SCOPE 
: INITIALIZE 


27, INIT 
#TINT13,@ADINT :SETUP RETURN ADDRESS 

177776 #340,PSR [SET PROCESSOR PRIORITY TO 7 

000002 MO PSR,2(ADINT) | :SETUP RETURN PROCESSOR STATUS 

177776 #340,PSR [SET PROCESSOR PRIORITY TO 0 

177776 #300.PSR [SET PROCESSOR TO LEVEL 6 PRIORITY 
#103, aCRS [SET EJECT INTERRUPT ENABLE, AND READ 
#40000. a@cRs [WAIT FOR CARD DONE 


177776 cApINT), PSR sRESTORE PROCESSOR TO HIGHEST PRIORITY 
:DISABLE INTERRUPTS 


RES. 


ss ts SS Ss SS 4 SH FH oH 
SY 
SLKASRASLES 
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;CHANGE INTERRUPT RETURN ADDRESS 
:TO CAUSE A HALT IF AN INTERRUPT OCCURS 
SCHECK TO SEE IF LEVEL ALREADY RECORDED 
TEST14 tIF NO, GO TO NEXT TEST 
000602 ZF SO, CHECK TO SEE 
TEST14 THAT THE HE INTERRUPT LEVEL RECORDED 
SIS BELOW THE CURRENT LEVEL 
: INTERRUPT DIDN'T OCCUR WITH STATUS 
T LEVEL 7, BUT PREVIOUSLY OCCURRED 
T OR ABOVE THIS LEVEL 


BR TEST14 
TINT13: #40000, aCRS :MAKE SURE CARD DONE IS SET 
BNE +4 [BRANCH IF SET 

SCARD DONE WASN'T SET 
acrs ‘DISABLE FURTHER INTERRUPTS 
#232, @ADINT : CHANGE INTERRUPT RETURN ADDRESS 
ay232 0 CAUSE A HALT IF AN INTERRUPT OCCURS 
(SP)+, (SP)+ ERESTORE “STACK POINTER 
INTFLG *CHECK FOR PREVIOUS FLAG 
SET? __ ; BRANCH IF FLAG. SET 
#100007, INTFLG :SET FLAG AND LEVEL 

G4,R2 ;SETUP FOR PRINTOUT 

[PRINT MESSAGE ‘THE INTERRUPT LEVEL WAS'' 


;PRINT LEVEL NUMBER 
CHECK PREVIOUS LEVEL 
; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


#232,@ADINT 
B008 oaa3s 


; TEST FOR AN INTERRUPT ON LEVEL 6 
; SINCE THIS IS WHERE THE CARD READER NORMALLY IS, DON'T PRINT OUT A MESSAGE 
F IT IS FOUND HERE 
TESTIG: SCOPE 
JSR %7, INIT : INITIALIZE 
#TINTI4 @ADINT : SETUP RETURN 


ADDRESS 
Sone SET PROCESSOR PRIORITY TO 7 


ee ee ee ee ee ee ee ee ee ee ee eee 
oe ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee eee 


09 
10 
; 1 
18 
ib 
15 
16 
7 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
47 
42 
43 
44 
4S 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 


00000 
177776 
177776 


177776 


340,P 
#103, DcRS 
#40000, acrs 


ee -PSR 


acRS 
#232 ,@ADINT 
an232 
TEST15 
#40000 acs 
~a 


acRs 

#232 ,@ADINT 
av 
(SP)+,(SP)+ 
INTFLG 


#340 
PSR SCADINT) ‘SETUP RETURN PROCESSOR STATUS 
#340,PSR TO 0 


SET PROCESSOR PRIORITY 

7SET PROCESSOR TO LEVEL 5 PRIORITY 
7SET EJECT, INTERRUPT ENABLE, AND READ 
[WAIT FOR CARD DONE 


RESTORE PROCESSOR TO HIGHEST PRIORITY 
DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

:TO CAUSE A HALT IF AN INTERRUPT OCCURS 


;MAKE SURE CARD DONE IS SET 
ZBRANCH IF SET 


:CARD DONE WASN'T SET 
DISABLE FURTHER INTERRUPTS 
; CHANGE INTERRUPT oe ADDRESS 
CAUSE A HALT IF AN INTERRUPT OCCURS 
SRESTORE STACK POINTER 
:CHECK FOR PREVIOUS FLAG 





a kk ee ek ek ee kk ee ee ee ed ed ed ed ed ed etd 
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003246 SET14 BRANCH IF FLAG SET 
003250 000602 #100006,INTFLG ;SET FLAG AND LEVEL 
003256 TEST15 


BR S 
100006 SET14: s —— CHECK PREVIOUS LEVEL 
; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
TEST FOR a ON LEVEL 5 


TESTIS: 

%7, INIT INITIALIZE 
#TINT15,@ADINT :SETUP RETURN ADDRESS 

177776 #340,PSR :SET PROCESSOR PRIORITY TO 7 

000002 MO PSR,2(ADINT) SETUP RETURN PROCESSOR STATUS 

177776 #340,P PSR :SET PROCESSOR PRIORITY TO 0 

177776 #200,P :SET PROCESSOR TO LEVEL } OPRIORITY 

MO #103 SCRS ‘SET EJECT INTERRUPT ENABLE, AND READ 

#40000, acrs ‘WAIT FOR CARD DONE 


177776 ScApIND). PSR —; RESTORE PROCESSOR TO HIGHEST PRIORITY 
acR [DISABLE INTERRUPTS 
#33 @ADINT ; CHANGE INTERRUPT RETURN ADDRESS 
ay23e TO CAUSE A HALT IF AN INTERRUPT OCCURS 
INTFLG SCHECK TO SEE IF LEVEL ALREADY RECORDED 
TEST16 :IF NO, GO TO NEXT TEST 
INTFLG,#100005 IF SO, CHECK TO SEE 
TEST16 STHAT THE UNTERRUPT LEVEL RECORDED 
[1S BELOW THE CURRENT LEVEL 
T INTERRUPT DIDN'T OCCUR WITH STATUS 
:AT LEVEL 5, BUT PREVIOUSLY OCCURRED 
ouch AT OR ABOVE THIS LEVEL 


BR 
TINT15: #0000, acrRs MAKE SURE CARD DONE IS SET 
BN {BRANCH IF SET 


DONE WASN'T SET 
acrs DISABLE FURTHER INTERRUPTS 
#232 ,@ADINT [CHANGE INTERRUPT RETURN ADDRESS 
av232 -TO CAU HALT IF AN INTERRUPT OCCURS 
(SP)+, (SP)+ ACK POINTER 
INTFLG =CHECK FOR PREVIOUS FLAG 
SETS :BRANCH IF FLAG SET 
#100005, INTFLG :SET FLAG AND LEVEL 
#MSG4 RE 7SETUP FOR PRINTOUT 
47. TOUT [PRINT MESSAGE "THE INTERRUPT LEVEL WAS'’ 


+ PRINT LEVEL NUMBER 
SETS: CMP CHECK PREVIOUS LEVEL 
BPL TEST16 
HLT : INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


TEST FOR AN INTERRUPT ON LEVEL 4 
TESTIG: SCOPE 

011434 S %7,1N : INITIALIZE 

003622 HINTI6, @ADINT ;SETUP RETURN ADDRESS 

000340 177776 S #340,PSR SET PROCESSOR PRIORITY TO 7 

177776 000002 MOV PSR. 3 (ADINT) SETUP RETURN PROCESSOR STATUS 


6 wh te oe ee 


A ht i ht 


‘A A 1 A A A ht A 





mez emerson pete 


3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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” 
CZCRACO CR11 DIAG St MACY11 30A(1052) 27=SEP=79 09:50 PAGE 26 
CZCRAC.P11 26-SEP-79 15:13 


000340 177776 I SET PROCESSOR PRIORITY TO 0 

000140 177776 # ;SET PROCESSOR TO LEVEL 3 PRIORITY 
000103 MOV SET EJECT INTERRUPT ENABLE, AND READ 
040000 #4 acr sWAIT FOR CARD DONE 


177776 2(ADINT) ,PSR RESTORE PROCESSOR TO HIGHEST PRIORITY 
acrRs :DISABLE INTERRUPTS 
#232 ,@ADINT + CHANGE INTERRUPT RETURN ADDRESS 
a#232 ;TO CAUSE A HALT IF AN INTERRUPT OCCURS 
INTFLG 7CHECK TO SEE IF LEVEL ALREADY RECORDED 
TEST17 :IF NC GO TO gt TEST 
INTFLG,#100004 IF SO, CHECK TO SEE 
TEST17 THAT THE INTERRUPT Et RECORDED 
71S BELOW THE CURRENT LEVEL 
AY LEVEL. DIDN'T OCCUR WITH STATUS 
T LEVEL 4, BUT PREVIOUSLY OCCURRED 
; AT OR ABOVE THIS LEVEL 


BR TEST17 
TINT16: #40000 ,aCRS sMAKE SURE CARD DONE IS SET 
+4 BRANCH IF SET 


- Se SS SS 


[CARD DONE WASN'T SET 
acrs SDISABLE FURTHER INTERRUPTS 
#232, @ADINT 3 CHANGE INTERRUPT RETURN ADDRESS 
ar232 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
(€>)4. (SPy4 SRESTORE STACK POINTER 
TEL =CHECK FOR PREVIOUS FLAG 
H IF FLAG SET 
:SET FLAG AND LEVEL 
;SETUP FOR PRINTOUT 
[PRINT MESSAGE ‘THE INTERRUPT LEVEL WAS"’ 


BR PRINT LEVEL NUMBER 
SET4: CMP INTFLG,#100004 ;CHECK PREVIOUS LEVEL 
BPL TEST17 
HLT : INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


;TEST_FOR AN INTERRUPT ON LEVEL 3 
TEST17: ue 


ee SS SS SSS SS SS Sh Sh UD he Uh SS 


%7, INIT INITIALIZE 

#TINT17,@ADINT :SETUP RETURN ADDRESS 

177776 #340, PSR ;SET PROCESSOR PRIORITY TO 7 

000002 MOV PSR, 2(ADINT) : SET 

177776 #340,PSR : 

177776 #100.PSR :SET PROCESSOR TO LEVEL 2 PRIORITY 
MOV #103. aCRS [SET EJECT INTERRUPT ENABLE, AND READ 

#40000, acrs [WAIT FOR CARD DONE 


177776 tADINT), PSR; RESTORE PROCESSOR TO HIGHEST PRIORITY 
ith @ADINT URN ADDRESS 
av232 [TO CAUSE A HALT IF AN INTERRUPT OCCURS 
INTFLG =CHECK TO SEE IF LEVEL ALREADY RECORDED 
TEST18 [IF NO, O NEXT TEST 
INTFLG,#100003 IF SO. CHECK TO SEE 
TEST18 [THAT THE INTERRUPT LEVEL RECORDED 


oak 8 oh A A oh A A oe hs A eh A A 
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31S BELOW THE CURRENT LEVEL 

S INTERRUPT DIDN'T OCCUR WITH STATUS 

iat LEVEL 3, BUT PREVIOUSLY OCCURRED 
mere T OR ABOVE THIS LEVEL 


BR 
TINTI7: #40000.@CRS MAKE SURE CARD DONE IS SET 
BNE #4 ZBRANCH IF SET 


:CARD DONE WASN'T SET 
acRs [DISABLE FURTHER INTERRUPTS 
#232 ,@ADINT + CHANGE INTERRUPT RETURN ADDRESS 
Sd ;TO CAUSE A HALT IF AN INTERRUPT OCCURS 
(SP)+, (SP)+ ZRESTORE STACK POINTER 
INTFLG ; CHECK 4s PREVIOUS FLAG 


SETS ; BRANCH 
#100003, INTFLG ; 
#MSG4 ,R 


Pe 
8 


FabnFEEes 


E 


INTOUT 

{PRINT MESSAGE ‘THE INTERRUPT LEVEL WAS’’ 
:PRINT LEVEL NUMBER 

BR TEST18 
SETS: CHECK PREVIOUS LEVEL 

BPL TEST18 

HLT ; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 

TEST FOR ——- ON LEVEL 2 


TESTI8: 
%7, INIT : INITIALIZE 
#TINT18,@ADINT SETUP RETURN ADDRESS 
177776 #340,PSR SET PROCESSOR PRIORITY TO 7 
000002 MOV PSR, 2(ADINT) 7SETUP RETURN PROCESSOR STATUS 
177776 #340,PSR SET PROCESSOR PRIORITY TO 0 
177776 #040,PSR SET PROCESSOR TO LEVEL 1 PRIORITY 
MOV #103 ,acRS 7SET EJECT INTERRUPT ENABLE, AND READ 
FOR CARD DONE 


gi7 #40000 .acrs WAIT 
177776 B(ADINT) .PSR :RESTORE PROCESSOR TO HIGHEST PRIORITY 
#232,,@ADINT 
av232 :TO CAUSE A 
INTFLG ; CHECK TO SEE IF LEVEL ALREADY RECORDED 
TEST19 F NO, GO TO NEXT TEST 
INTFLG,#100002 7IF SO. CHECK TO SEE 
TEST19 “THAT THE INTERRUPT LEVEL RECORDED 
71S BELOW THE CURRENT LEVEL 
S INTERRUPT DIDN'T OCCUR WITH STATUS 


zAT LEVEL 2, BUT PREVIOUSLY OCCURRED 
TeSsT19 T OR ABOVE THIS LEVEL 


BR 
TINT18: #40000 ,,aCRS zMAKE SURE CARD DONE IS SET 
BNE -*4 7BRANCH IF SET T SET 


[CARD DONE WASN 
acrs [DISABLE FURTHER INTERRUPTS 

#232 @ADINT [CHANGE INTERRUPT RETURN AD DRESS 

av232 :TO CAUSE A HALT IF AN INTERRUPT OCCURS 
(SP)+, (SP)+ SRESTORE STACK POINTER 

INTFLG [CHECK FOR PREVIOUS FLAG 


— at at 


SNEKSHENS KRERSKS 


SSSeSRasssyzse 
BESEREEEE RSEPEEE 


te a i ss tt 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


td 
Who 


WA 
Nw 
a 
i) 


z 


PASSE SRE 
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1 “BRANCH IF FLAG SET 
1 : 000602 MOV #100002, INTFLG :SET FLAG AND LEVEL 
1 MOV 7SETUP FOR PRINTOUT 
004 121 a root’ SPRINT MESSAGE ‘THE INTERRUPT LEVEL WAS"’ 
004 ; :PRINT LEVEL NUMBER 
BR TEST19 
100002 SET2: a aay INTFLG.#100002 :CHECK PREVIOUS LEVEL 
HLT ; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


-TEST FOR AN INTERRUPT ON LEVEL 
TEST19: SCOPE 


DEER ES Sa Gea es 


27, INIT ; INITIALIZE 
#TINTI9, @ADINT :SETUP 
177776 

000002 MOV PSR é(ADINT) 

177776 #340,P 


177776 #000; PSR :SET PROCESSOR TO 
, #103. aCRS [SET EJECT INTERRUPT ENABLE, AND READ 
#40000, aCRS [WAIT FOR CARD DONE 


BEQ : 
177776 MO 2(ADINT),PSR —_ ; RESTORE PROCESSOR TO HIGHEST PRIORITY 
R [DISABLE INTERRUPTS 

#232, @ADINT 3 CHANGE INTERRUPT RETURN ADDRESS 
a232 O CAUSE A HALT IF AN INTERRUPT OCCURS 
INTFLG ‘nee TO SEE IF LEVEL ALREADY RECORDED 
TEST20 7IF NO, GO TO NEXT TEST 
INTFLG,#100001 IF $0, CHECK TO SEE 
TEST20 : THE INTERRUPT LEVEL RECORDED 


MRA PENIS S 
pau 


| 


. BUT PREVIOUSLY OCCURRED 
zAT OR ABOVE THIS LEVEL 
TEST20 


BR 
TINT19: #40000,@CRS ; MAKE SURE CARD DONE IS SET 
BNE. #4 ZBRANCH IF SET 


:CARD DONE WASN'T SET 
acRs :DISABLE FURTHER INTERRUPTS 
#232 ,@ADINT [CHANGE INTERRUPT ogy ADDRESS 
av232 :TO CAUSE A HALT IF AN INTERRUPT OCCURS 
(SP) +, (SP)+ ZRESTORE STACK POINTER 
INTFLG ; CHECK FOR PREVIOUS FLAG 
FLAG SET 


SET1 ;BRANCH IF 
#100001, ,INTFLG ;SET FLAG AND LEVEL 
SETUP FOR PRINTOUT 
SPRINT MESSAGE ‘THE INTERRUPT LEVEL WAS"* 
PRINT LEVEL NUMBER 
BR EST20 
100001 SETI: :CHECK PREVIOUS LEVEL 
BPL TEST20 
HLT : INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


zA_ TIMING ERROR SHOULDN'T CAUSE AN INTERRUPT 
TEST20: SCOPE 


SSSEESEREE SESS 
epeenOnIes 


REESE SEREETE 
SERENE 


Wa 
NS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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“ 
o~ 


oO 
NO 


0114 JSR NIT : INITIALIZE 

MOV Hat. @ADINT LOAD RETURN POINTER 
900 0 17777 #340 PSR :SET PROCESSOR TO HIGHEST PRIORITY 
177776 MOV SR ¢ CADINT) [LOAD RETURN PROCESSOR STATUS 
000101 MOV a Abe :SET INTERRUPT ENABLE AND READ 
004000 #4000 aCRS [WAIT FOR TIMING ERROR TO SET 


BEQ . 
177776 #340,PSR sMOVE PROCESSOR TO LOWEST PRIORITY 
NOP ;CLOCK_INTERRUPT IF IT 
177776 a [MOVE PROCESSOR BACK TO HIGHEST PRIORITY 


: TIMING ERROR CAUSED AN INTERRUPT 
(SP)+, (SP)+ TRESTORE STACK POINTER 
#230 @ADINT : CHANGE INTERRUPT ADDRESS TO CAUSE A 
arose SHALT IF AN INTERRUPT OCCURS 
#40000, CRS [WAIT FOR CARD DONE 


acRs ZCLEAR INTERRUPT ENABLE 


a ad a 8 8 ed dd od od 


RGRERISESSIFESEISS 


TEST21: SCOPE 
: TEST FOR NO INTERRUPT OCCURING WITH INTERRUPT ENABLE SET AND REST CLEARED 
JSR INIT ZINITIALIZE CSR TO ZERO 
#TNINT @ADINT SETUP RETURN ADDRESS 
PSR :SET PROCESSOR TO LEVEL 7 
PSR. SADINT) TSTORE PROCESSOR STATUS 
SSET PROCESSOR TO LEVEL 0 
#100, acRS TENABLE INTERRUPTS 
#0 ‘WAIT AWHILE 


74 
177776 ( 2(ADINT) PSR sRESTORE PROCESSOR TO LEVEL 7 
ne DISABLE FURTHER INTERRUPTS 


BR 
TNINT: AN_INTERRUPT OCCURRED 
CMP (SP) +, (SP)+ RESTORE STACK 
C acRS DISABLE FURTHER INTERRUPTS 
CONT21: a#232 [CHANGE INTERRUPT RETURN ADDRESS 
MOV #232 ,@ADINT ;CAUSE A HALT IF AN INTERRUPT OCCURS 


NIRINININNNNNNNNNNNNNNNNNNN 


177776 
000002 


TEST22: SCOPE 
> CHECK ee ae INTERRUPTS ON MORE THAN ONE LEVEL 


sINITIALIZE CSR TO ZERO 
#TOINT @ADINT :SE URN AD 
PSR 
Ps e(ADINT) ‘ 
#103. BCRS SET INTERRUPT ENABLE AND EJECT A CARD 
[WAIT FOR INTERRUPT 
- :SIT IF TRACE BIT IS SET 
(6)+, (6)+ SRESTORE STACK POINTER 
005044 #TZINTA,@ADINT :CHANGE RETRUN ADDRESS 
177776 CLR PSR : SET PROCESSOR TO LEVEL 0 
000002 177776 2(ADINT) .PSR SRESTORE PROCESSOR TO LEVEL 7 


BR 
T2INTA: (6)+, (6)+ RESTORE STACK 
H ;THE INTERRUPT OCCURRED AT 2 LEVELS 


177776 
000002 
177776 





d 3 
CZCRACO CR11 ha Lrg, nsf hy 30A(1052) 27-SEP-79 09:50 PAGE 30 
CZCRAC.P11 15:1 


005050 ; CONT22: CLR ace DISABLE INTERRUPTS 
005052 CLR rsh) 2 SCHANGE INTERRUPT RETURN ADDRESS TO 
012710 0002 MOV #252 ,@ADINT :CAUSE A HALT IF AN INTERRUPT OCCURS 


104001 ete SCOPE 
tht READY ADDRESSING CRB1 OR CRB2 (DATO,DATOB,DATI) SHOULD CLEAR 
006737 011434 SR : INITIALIZE 
00521 acrs START READING A CARD 
WAIT FOR COLUMN READY 


:DATO TO CRB1 
CHECK COLUMN READY 
sBRANCH IF CLEARED 
DATO TO CRB1 DIDN'T CLEAR READY 
260 TO NEXT TEST 
WAIT FOR COLUMN READY 


;DATOB TO LOW BYTE OF CRB1 
CHECK COLUMN READY 

BRANCH IF CLEARED 

;DATOB TO CRB1 LOW BYTE DIDN'T CLEAR READY 
:GO TO NEXT TEST 

[WAIT FOR COLUMN READY 


:DATOB TO HIGH BYTE OF CRB1 
UMN_READY 


o 
NO 
am 
=, 


ae f 


acRs 

CNT23C CLEARED 

:DATOB TO CRB1 HIGH BYTE DIDN'T CLEAR READY 
BR TEST24 :GO TO NEXT TEST 

CNT23C: it acRs [WAIT FOR COLUMN READY 


aCRB1 ;DATI TO CRB1 
acRs CHECK COLUMN READY 
CNT23D BRANCH IF CLEARED 
;DATI_ TO CRB1 DIDN'T CLEAR READY 
BR TEST24 :GO TO NEXT TEST 
CNT23D: a, acRs [WAIT FOR COLUMN READY 


@CRB2 ;DATO TO CRB2 
acrs 
CNT23E 


HRIFFLERENSE RESENERRNBARTSRRLS 


005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
00S 
005 
005 
005 
005 
005 
00S 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 


; EARED 

;DATO TO gy A el T CLEAR READY 
BR TEST24 :GO_ TO NEXT 

CNT23E : M3 acRS ;WAIT FOR COLUM READY 


72 
aCRB2 ;DATOB TO LOW BYTE OF CRB2 
acRs > CHE want READY 
CNT23F BRANCH IF CLEARED 
:DATOB TO chee. LOW BYTE DIDN'T CLEAR READY 
BR TEST24 :GO TO NEXT TEST 
CNT23F : os acRs ;WAIT FOR COLUPW READY 


72 

CRB2 ,R2 ;LOAD POINTER 

i(R2) ;DATOB TO HIGH BYTE OF CRB2 
10571 acrs :CHECK COLUMN READY 


RVRNNNNNNVNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNANNNNNNLNNNYNN 
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BPL 

HLT 

BR 
CNT23G: TSTB 


TST 
TSTB 
BP. 


L 
HLT 
TEST24: 


CNT23G 
TEST24 
acrs 
@CRB2 
acRs 
TEST 24 


;BRANCH_IF CLEARED 


;DATOB TO CRB2 HIGH BYTE DIDN'T CLEAR READY 


7GO TO NEXT TEST 


zWAIT FOR COLUMN READY 
sDATI TO CRB2 


:CHECK COLUMN READY 
BRANCH IF CLEARED 
:DATI TO CRED DIDN'T CLEAR READY 


SCOPE 
SETTING EJECT AFTER A COLUMN READY WITHOUT CLEARING THE COLUMN READY 


SHOULD SET TIMING ERROR (WHICH 
JSR %7, INIT 


BR 
CNT24A: 


acrs 
#2,aCRS 
acres 

CNT24A 
END24 
#6000. @CRS 
#40400, aCRS 
CNT24A 
#40000, aCRS 
CNT24B 

%7, CKBIT8 
ENDCK 

ENDCK 

acrs 

. +4 

#40400, aCRS 
END24 

#400, aCRS 
ENDCK 

27, CKBIT8 


IN TURN SHOULD CLEAR COLUMM READY) 


: INITIALIZE 


START READING A CARD 
CHECK COLUMN READY - WAIT 


SET EJECT 
CHECK COLUMN READY 


BRANCH IF STILL SET 
SETTING EJECT CLEARED COLUMN READY 


ZBRANCH TO WAIT FOR DONE AFTER ERROR 
CHECK TIMING ERROR 


BRANCH 


IF SET 
— CARD oS AND OFF-LINE 


H TO ERROR PRINTOUT 
WAS SET SO OUTPUT MESSAGE 


K ON-LINE 
DONE SET BUT TIMING ERROR DIDN'T 


Cc 

;BRANCH TO NEXT SECTION 
;CHECK COLUMN READY 
BRANCH IF 


NOT SET 
: TIMING ERROR DIDN'T CLEAR READY 
[WAIT FOR CARD DONE OR OFF-LINE 


CHECK OFF LINE 


BRANCH IF NOT SET 


OUTPUT ERROR MESSAGE 


CHECK SW7 AND RETURN TO TEST1 IF SET, AFTER RINGING BELL 


; OTHERWISE GO INTO THE DATA TEST 
COPE 


TRFLG 
RESTRT 


; TOGGLE TRACE FLAG 





oO 
NO 
mernnnnnnnn ON 


NNN 
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oO 
NO 
oom 


FARRAR RAE AERAERARARAEAAEE AEE AAERAAERRERARARRRERRREREE 


[DATA RELIABILITY TEST FOR CR11 


FERRARA AAE EAA AAEAEREEERARAARAARERERREREKRERKEK KE 


;CHECK SR FOR TYPE OF DECK BEING TESTED, AND INITIALIZE POINTERS 
012737 DATST: MOV #56,CDCNT ;SETUP CARD COUNT TO ENTER TABLE CORRESPONDING TO NEXT C 
1 paTSTt BR 2 SKIP NEXT INSTRUCTION 


sea | 


1$: C SETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING 
DATST2: FLAG SET PREVENTS PRINTING OUT ERROR HEADING 
173126 8 CHECK BIT 4 OF SR FOR TYPE OF DECK 
ALP! BRANCH IF NOT SET TO LOAD ALPHANUMERIC POINTERS 
WBINCD,TSTART BIT 2 SET, LOAD BINARY TABLE POINTERS 
WBINEND , TEND 


#MSG15 ,DECK 

CONTD BRANCH AROUND ALPHANUMERIC POINTERS 
WALPCD,TSTART  ;LOAD ALPHANUMERIC TABLE POINTERS 
#ALPEND , TEND 
#MSG14 ,DECK 
TRFLG : CHECK ea TRAP FLAG 
TRP1 BRANCH IF FLAG WAS SET 
177776 : ;CLEAR TRACE BIT 
DCNT1 


BR 

173032 : :CHECK SW12 TO INHIBIT TRACE TRAPPING 
BNE BRANCH IF SET 

177776 MO :SET_ TRACE BIT 

:_ JSR %7, INIT : INITIALIZE CARD READER STATUS REGISTER 

INTERRUPT SERVICING, AND START READING 

012710 MOV #SRVC ,@ADINT 2 SETUP RETURN POINTER 

042737 000340 177776 #340,PSR 


013760 000002 PSR, OS ARINT) 
006540 %7 ,NXCRD ZADJUST POINTER AND START READING 


004737 
052713 #101, aCRS “ENABLE INTERRUPTS 
000001 WAIT [WAIT FOR INTERRUPTS 
000776 BR .-2 


: INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABILITY TEST 
SRVC: TST acRS CHECK SPECIAL CONDITION (BIT 15) 


sBRANCH IF SET 
;CHECK COLUMN READY 
CH IF SET 


Et tb tt dol PER ER PRA ELA tA LS Sate 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


8 


CLCNT COL NUMBER 
@CRB1,DAT1 : STORE DATA OF FIRST READ 
acrRs MAKE SURE COLUMN READY CLEARED 
BP SCONT1 " IT DID 
177776 #340,PSR ;SET PROCESSOR TO LEVEL 7 
;READING DATA DIDN'T CLEAR COLUMN READY 
7GO TO NEXT CARD Aaa ERROR PRINTOUT 


J LASTCK 
006656 SCONT1: @CRB2 ,DATENC FAA od aan DATA 
012701 000010 MO #10, COUNT [WAIT AWHILE 


Aono Aon AAs AI AI AAAI AiAIi AiAi Pini niAINRIAiINAIAINAIAIAIAINIAININIAINIANIAININIAINIAINIANININIAINIAIAINIAIAIAINIAIAIAS 
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COUNT 


72 

aCRB1,DAT2 STORE DATA OF SECOND READ 

PTOFF CLEAR POINTER OFFSET 

nie ar5 ocr FIRST DATA READ 
AIL PRINTOUT IF WRONG 

#2, PTOFF SET POINTER OFFSET 

DAT2, cR5)¢ ; CHECK SECOND READING OF SAME DATA 
I CH IF WRONG 


FAIL 

#4 ,PTOFF iSET POINTER OFFSET 

DATENC, (R5)+ CHECK ENCODED DATA 
FAIL BRANCH IF WRONG 


RS. TEND CHECK FOR END OF TABLE 
:IF NOT THERE, RTI 
TSTART, RS ;MOVE POINTER TO LOOP THRU TABLE 


RTI 
SPECIAL CONDITION BIT 15 WAS SET WHEN THE INTERRUPT SERVICE ROUTINE 
[WAS ENTERED 
;OUTPUT A MESSAGE AND HALT 
177776 ERSET: 4 #340,PSR LOCK OUT INTERRUPTS 


006646 CMP #80. ,CDCNT CHECK FOR LAST CARD 

BNE ER1 7IF NOT, PRINT OUT MESSAGE 
006650 #80. ,CLCNT iIF LAST CARD, CHECK FOR LAST COLUMN 
BNE ER1 SSAGE 


006662 ALLDON ; 
015640 : taut ;"BIT 15 WAS SET.*’ 


012152 
015661 "REMEDY THE ERROR CONDITION 
012152 TOUT SAND PRESS CONTINUE"’ 


006432 J SET UP FOR NEXT CARD AND GO ON 
000340 177776 : ;LOCK_ OUT INTERRUPTS 
000002 8 SET EJECT TO PREVENT TIMING ERROR 
aCRB1 ;MAKE SURE COLUMN READY IS CLEARED 
020000 172512 :CK SW13 
LCN CONTINUE IF NOT SET 
172504 WR zIF SET, CHECK FOR HALT ON ERROR 
:BRANCH IF HALT ON ERROR NOT SET 
zHALT RROR_ SET 
CONTINUE AFTER HALT 
:CHECK FOR CARD DONE 
; INHIBIT PRINTOUT AFTER CARD DONE SET 
7CHECK FOR OFF-LINE 
BRANCH IF NOT 


FAILC 
wr ;CHECK FOR LAST CARD 
.+ 


ALLDON 71F LAST CARD, WAIT FOR NEXT DECK 
%7,CKBIT8 :1F NOT LAST CARD, PRINT MESSAGE 
%7,,NXCRD : START NEXT CARD THRU READER 


R 
FAILCN: ERFLG TEST FLAG FOR PREVIOUS PRINTOUT 
BNE NOHD :1F SET, DON'T OUTPUT HEADING 
005237 000650 ERFLG SET FLAG 
012702 015526 #MSG13,R2 OUTPUT HEADING FOR DATA ERROR PRINTOUT 


Aamo AIAsAaAAIAIAIAINIAINININIAINIAINIAINIAINININININIAINIAINIAINIAININIAIPOPI PIANO POPU NIPPON Pp nonononund 
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012152 
00664 


—? 


MmoOr 


NOHD: MO 3 sOUTPUT TYPE OF DECK 
%7, TOUT 
:OUTPUT CARD NUMBER WHERE ERROR OCCURRED 
;OUTPUT COLUMN NUMBER WHERE ERROR OCCURRED 


; SUBTRACT OFFSET FROM POINTER TO POINT TO 
ZADDRESS OF DESIRED PATTERN 
;OUTPUT CORRECT DATA PATTERN (NOT ENCODED) 


1 


RR 
2a 


OUTPUT DATA READ ON FIRST READING OF BUFFER 


g 
| 


sOUTPUT DATA READ ONE MILLISECOND LATER 


ei 


pees 


;OUTPUT CORRECT DATA PATTERN (ENCODED FORM) 


8 
i 


DATENC ,R2 OUTPUT DATA READ (ENCODED) 
%7,PROCT 


aSwR ;CHECK “HALT ''s pall SWITCH 
+4 BRANCH IF NOT 
HALT AFTER AN ERROR 
[CHECK ERROR 
LASTCK BRANCH IF NOT SET 
+111. eee CHECK FOR LAST CARD 


ret — 
LASTC 


JMP ALLDON 
FAILC1: JMP ERSET ;OUTPUT ERROR MESSAGE 
; INTERRUPT NOT DUE TO ERROR OR rary READY 

BIT no +> acrs 


. 


54 
360 
006362 
72 


aa 
RAE 


NOTCOL : 


¥B0. CLENT : OUNT 
- +4 KIP ERROR HALT IF 80 COLUMNS WERE READ 
HL SLESS THAN EIGHTY CO!.UMNS WERE READ 
LASTCK: #80. ,CDCNT CHECK FOR LAST CARD 
BE LASTCD BRANCH IF LAST CARD 
%7,,.NXCRD :1F NOT LAST CARD 


R GO ON 
LASTCD: (SP)+,(SP)+ SIF LAST CARD, RESTORE STACK POINTER 
011462 J %7,BELL RING BELL TO SIGNIFY ‘PASS COMPLETE" 
000042 aoe MONITOR HOOK 


SeSearavs 


> p> > bP | 
WNAARWN=S 


%7,(R2) 


V2 ss St SS SS Ss 


NNN~G 
3 3 





Oo 
NO 
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000240 


0 NOP 
032777 000040 172112 END: #40 ,aSWR ;CHECK_SR_ FOR CONTINUATION TO ANOTHER DECK 
001 BNE . +6 BRANCH TO HALT IF SWS SET 
006514 DECKCK CONTINUE TO ANOTHER DECK 
;DATA TEST DONE 


WHEN CONTINUING FROM we pee TO ANOTHER, CHECK SW6 FOR TYPE 
;OF TESTING TO BE eas 
DECKCK: COM TRF ; TOGGLE TRACE FLAG 
BIT wi00. aSwR ‘feo SW6 
+6 BRANCH IF NO 


T SET 
RESTRT ;RERUN COMBINED INSTRUCTION AND DATA TEST 


TSTART,RS5 ;LOAD R5 WITH TABLE STARTING ADDRESS 
CDCNT MULTIPLY CARD COUNT BY FOUR 


sADD_ OFFSET TO R5 TO POINT TO NEXT DATUM 
RESTORE CARD COUNT 


sCLEAR EJECT IF SET 

;READ ANOTHER CARD 

KEEP TRACK OF CARD NUMBER 
+ INITIALIZE COLUMN COUNT 
RETURN 


RTS x7 
; INTERRUPT NOT CAUSED BY ERROR, COLUMN R READY, OR CARD DONE 
177776 NOTCD: BIS #340,PSR LOCK OUT FURTHER INTERRUPTS 
#2000, acRs zTEST ON-LINE TRANSITION BIT 


E 
:NO BITS 7 TO CAUSE AN INTERRUPT 
LASTCK START NEXT CAR 

ON-LINE oe CAUSED AN INTERRUPT 
LASTCK : START NEXT CARD 

:POINTER TO LITERAL "‘ALPHA'' OR ‘BINARY"' 

STARTING ADDRESS oa DATA TABLE 

END ADDR OF DATA TABLE 


2 susan | 


Ot 
w 


me a a a a hs 8 Ys Hh tt 
wane 
FURS 


Pe 


1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 


Bary 


So 


:DATA READ FROM C 

OFFSET TO POINTER FOR DATA PRINTOUT 
%7,BELL :RING BEL 
#400, aCRS CHECK OFF-LINE BIT 
+4 BRANCH IF SET 

OFF-LINE NOT SET, BUT SPECIAL CONDITION 


7WAS SET AFTER 80 COLUMNS OF THE 80TH CARD WERE READ 
171712 ae ; CHECK a HALT AT END OF DECK 


CR 


Ge 


NNN SIN NNN NS 
SURAE 


oa 
oO 


JMP DECKC ; OF TEST 
171674 ALCNT: a #2000, aSWR :DOES THIS CR11 USE THE 1429 MODULE ? 


ALCNT4 YES= CH 
#0, [NO-STALL TO ALLOW CARD DONE TO SET 


wt os ss ss SS SS SS ss SS SS SS SS YH SB YH SS HY 


aw33 


N 
x 
Aah iArArAIsAIAIAIAIAIAIAIAIAIAINIAIRIAIAINIAINIAININIANINIANINIAINIAIAIAINIAINIANIAINIAINIAIAIAIAIARIAIRIAI AIA 
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xd 


#0 
4 
o ges acrs ;CHECK CARD DONE 
.+ 
CARD DONE DIDN'T SET= THIS ERROR COULD BE 
acrRs ;CAUSED BY RUNNING A CR11 WHICH 
M829 MODUL 


HAS THE 
E AND NOT SETTING SWITCH REGISTER 
SSWITCH 10 


157377 #157377 ,aCRS ONLY BIT 8 MAY STILL BE SET 
+4 BRANCH IF OK 
STATUS REGISTER INCORRECT 
BR ALCNT2 
ALCNT1: CLR acrs ; CLEAR ERROR 
150577 BIT #156377 ,aCRS ZONLY BITS 8 AND 9 MAY STILL BE SET 


BIT 9 MAY BE NSE SINCE CARD MAY NOT 
SYET HAVE CLEARED THE READER TO CAUSE 
[CARD DONE 


3a 


+4 
HL ZSTATUS REGISTER INCORRECT 
000340 177776 ALCNT2: #340,PSR ;SET PROCESSOR TO LEVEL 7 
177776 000002 MO PSR. 3 (ADINT) “SETUP RETURN STATUS 
acrs [ATTEMPT TO READ- SHOULD RESET ERROR 
?CHECK BIT 15 
[BRANCH IF 


: SETTING READ DIDN'T RESET ERROR 
;BRANCH TO WAIT FOR ON-LINE 


ALWAIT L 

A@SRVC1,@ADINT  ;LOAD INTERRUPT RETURN ADDRESS 

PSR :SET PROCESSOR TO LEVEL 0 

#101,@CRS ENABLE INTERRUPTS, KEEP ERROR SET BY SETTING READ 
= CLOCK IN_ INTERRUPT 

177776 2(ADINT) ,PSR ; SET > aaateoona TO LEVEL 7 

acrRs [CLEAR INTERRUPT ENABLE AND ERROR 

;BIT 15 DIDN'T CAUSE AN INTERRUPT 


+6 
(SP) +, (SP)+ RESTORE STACK POINTER 
acRS ;CLEAR_ INTERRUPT ENABLE AND ERROR 
WSRVC2,@ADINT CHANGE INTERRUPT RETURN ADDRESS 
#100,aCRS ENABLE INTERRUPTS 
177776 #340,PSR 7SET PROCESSOR TO LEVEL 0 
#400 ,aCRS CHECK OFF-LINE BIT 
BNE 274 :LOOP UNTIL CLEAR 
177776 2(ADINT) ,PSR [SET PROCESSOR TO LEVEL 7 
NO INTERRUPT OCCURRED 
SRVC2A ;BRANCH AROUND 


011462 SRVC2: %7,BELL zRING BELL 
MP (SP) +, (SP)+ RESTORE STACK POINTER 
002000 SRVC2A: #2000 ,aCRS CHECK BIT 10 
BN +4 ; CH IF SET 
;BIT 10 NOT SET 
000400 1 Soames ;CHECK BIT 8 
+ 


BRANCH IF NOT SET 
:BIT 8 WAS SET 


PORIARIARIAIARI RIA RIRIAIARIRIAIAIAI RIAA RIA ARIR PUA RUIARIIUPURA Oe 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


CER RR Soe Rc Stet Soh tes tes 
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CZCRAT.PT) 26-SEP-79 15:13 SEQ 0036 C2z¢ 
1831 007160 1 CLR acRs ;DATO TO CRS ‘ 
1S 007162 88394 3 002000 BIT #2000 .aCRS 3CHECK BIT 10 < 
1833 007166 TouGoo BEQ +4 BRANCH IF a! SET c 
1834 007170 HLT sDATO DIDN'T CLEAR ON-LINE BIT é 
135 007172 022098 CMP (SP)+, (SP)+ RESTORE STACK FROM INITIAL INTERRUPT é 
1Se8 007174 0001 006514 Jv DECKCK RESTAR é 
< 

1838 007200 005037 000632 ERCR11: CLR FLAG ‘ 
Ls 44 007204 seine 2] TSTA ‘ 
007206 012737 000001 000632 ERCM11: MOV #1,FLAG é 

181 007214 104007 TSTA: TIT é 
1848 007216 Ah fa 3 016231 MOV ag HEE = é 
: 007222 004737 000652 JSR %7.S s INITIALIZE REGISTERS é 
007226 012737 007236 012150 MOV areSTAY2, RETURN ;SETUP SCOPE LOOP RETURN ADDRESS é 

ics 3 THE Re READER GOING OFF-LINE SHOULD SET SPECIAL CONDITION (BIT 15) AND OFF=LINE (BIT < 
1846 007234 104001 TESTA: SCOPE < 
1847 007236 005037 012144 CLR 1 TMAX ;RUN_EACH ERROR TEST ONCE ONLY é 
1848 007242 004737 011434 JSR %7,1NIT s INITIALIZE STATUS REGISTER ; < 
1849 007246 Bees 014410 MOV #MSG3,R2 :"PRESS CARD READER ‘READ STOP'' < 
1850 007252 005737 000632 TST FLAG > CHANGE MESSAGE FOR DOCUMATION READER? é 
1851 007256 001402 BEQ +6 ZNO ss é 
uh 2 007260 012702 014450 MOV #MSG3A ,R2 :" PRESS CARD READER ‘STOP’ é 
1853 007264 004737 012152 JSR %7, TOUT < 
1854 007270 012702 01434 MOV #MSG2 ,R2 : < 
1855 007274 004737 012152 JSR %7, TOUT "THEN HIT ‘CONTINUE’ ON THE CONSOLE*’ é 
1856 007300 004737 012274 JSR %7,CRLF4 sMOVE MESSAGE UP ON TTY P 
1857 007304 000000 HALT é 
1858 007306 032713 000400 BIT #400 ,aCRS ;CHECK BIT 8 é 
1859 007312 001001 BNE +4 BRANCH IF SET < 
1860 007314 104000 HLT OFF-LINE (BIT 8) WASN'T SET é 
1861 007316 005713 TST acRS 7CHECK BIT 15 < 
1862 007320 100401 BMI +4 sBRANCH IF SET ‘ 
1863 007322 104000 HLT 3BIT 15 WASN'T é 
1864 007324 012702 014224 MOV #MSG1,R2 3" PRESS CARD READER “MOTOR START* AND ‘READ START'''; é 
1865 007330 005737 000632 TST FLAG ; CHANGE MESSAGE FOR DOCUMATION READER? < 
1866 007334 001402 BEQ -+6 ; é 
1867 007336 012702 014307 MOV #MSG1A,R2 :’PRESS CARD READER ‘RESET'** < 
1868 007342 004737 012152 JSR %7, TOUT P 
1869 007346 012702 014343 MOV #MSG2 ,R2 : < 
1870 007352 004737 012152 JSR %7, TOUT :"‘THEN HIT “*CONTINUE’ ON THE CONSOLE*’ é 
1871 007356 004737 012274 JSR %7,CRLF4 sMOVE MESSAGE UP ON TTY é 
1872 007362 000000 HALT é 
1873 007364 032713 000400 BIT #400 ,aCRS zWAIT FOR OFF-LINE TO CLEAR é 
ay 007370 001375 BNE 74 < 
< 

1876 z INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION < 
1877 007372 104001 TESTB: SCOPE < 
1878 007374 004737 011434 JSR %7, INIT s INITIALIZE STATUS REGISTER é 
1879 7400 012702 014536 MOV #MSG5 ,R2 z"REMOVE ALL CARDS FROM THE INPUT HOPPER'' é 
1 7404 737 012152 JSR %7, TOUT é 
1881 007410 012702 014343 MOV #MSG2 ,R2 3""THEN HIT ‘CONTINUE’ ON THE CONSOLE’’ é 
1882 007414 737 012152 JSR %7, TOUT < 
1883 007420 004737 012274 JSR %7,CRLF4 sMOVE MESSAGF UP ON TTY é 
1884 007424 000000 HALT é 
1885 007426 032713 000400 BIT #400,aCRS ;CHECK BIT8 < 
‘ 


1886 007432 001001 BNE +4 ;BRANCH IF SET 
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012274 
000400 


011434 
014653 
000632 


014771 


012274 
000400 


014224 
000632 


TESTD 


L 
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JSR 
MOV 
JSR 


mC 
JSR 


%7.7 
%7,,CRLFS 
#400 ,aCRS 
74 


3 


F=LINE (BIT 8) WASN'T SET 
CHECK SPECIAL CONDITION BIT 
PEC 


ANCH IF SET 
IAL_CONDITION NOT SET 
PR STORE CARDS IN INPUT HOPPER"’ 


:"PRESS CARD READER “MOTOR START’ AND ‘READ START*'’ 
CHANGE MESSAGE FOR DOCUMATION READER? 


i PRESS CARD READER 'RESET'*' 

:"THEN HIT "CONTINUE' ON THE CONSOLE'' 
;MOVE MESSAGE UP ON TTY 

WAIT FOR OFF-LINE TO CLEAR 


FULL SHOULD SET BIT 15 


%7,. CRLF 
#400,aCRS 
+4 


%7, TOUT 
%7,CRLF4 
ames 


zA FEED ERROR SHOULD SET BIT 
; THIS ——— WHEN THE FEED MECHANISM FAILS TO DELIVER A CARD TO THE READ STATION 


7 TOUT 


15 


INITIALIZE STATUS REGISTER 
;" RAISE OUTPUT STACKER PRESSURE ARM ABOVE HORIZONTAL THE 
—— MESSAGE FOR DOCUMATION READER? 
;"LOWER OUTPUT STACKER PLATE TO BOTTOM'' 
"THEN HIT *CONTINUE® ON THE CONSOLE"’ 
s;MOVE MESSAGE UP ON TTY 

7CHECK BIT 8 


BRANCH IF SET 
OFF-LINE (BIT 8) WASN'T SET 


CHECK SPECIAL CONDITION BIT 
BRANCH IF SET 


aeatee CONDITION NOT SET 
:"PRESS CARD READER "MOTOR START’ AND ‘READ START"'' 
: CHANGE MESSAGE FOR DOCUMATION READER? 


=NO 
z"PRESS CARD READER ‘RESET**’ 


:""THEN HIT ‘CONTINUE* - THE CONSOLE"’ 
SMOVE MESSAGE UP ON TTY 


;WAIT FOR OFF-LINE TO CLEAR 


:"REMOVE ALL CARDS FROM THE INPUT HOPPER’ 
:""THEN HIT *CONTINUE’ ON THE CONSOLE*’ 








ao 
NO 
ot ms 


ee ee ee 
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#MSGB ,R2 ;"HOLD DOWN THE SWITCH AT THE BOTTOM OF INPUT HOPPER 
FLAG ; CHANGE MESSAGE FOR DOCUMATION READER? 


[NO 
:"LIFT SWITCH UNDER RIFFLE CAP 


;"PRESS CARD READER "MOTOR START’ AND ‘READ START’ 
: CHANGE MESSAGE FOR DOCUMATION READER? 


“NO 
i" PRESS CARD READER ‘RESET'* 
%7, TOUT 
%7-CRLF4 MOVE MESSAGE UP ON TTY 
#2000 .acRS WAIT FOR CARD READER TO COME ON-LINE 
: SINITIALIZE STATUS REGISTER 
READ 


SET EJECT AND 
WAIT AWHILE 


o 
NO 
ams 


TEST OFF-LINE BIT 
;BRANCH IF SET 


[BIT 15 WAS NOT SET 
:"RESTORE CARDS IN THE INPUT HOPPER’ 
:"PRESS CARD READER "MOTOR START' Sep "READ START**' 
: CHANGE MESSAGE FOR DOCUMATION READER? 
‘PRESS CARD READER "RESET" 
z/"THEN HIT ‘CONTINUE’ ON THE CONSOLE’' 
012274 sR 17° CRLFG :MOVE MESSAGE UP ON TTY 
000400 BIT #400, CRS ;WAIT FOR OFF-LINE TO CLEAR 
000632 FLAG :SKIP NEXT TEST IF DOCUMATION READER 
+ 
TESTG 
ZA MOTION ERROR SHOULD SET BIT 15 
*THIS ERROR R OCCURS WHEN A CARD JAM OCCURS AT THE READ STATION 


TESTE: 
zs INITIALIZE STATUS REGISTER 
;’PRESS CARD READER ‘READ STOP**’ 


004 TAT "THEN HIT *CONTINUE* ON THE CONSOLE’’ 
012702 015170 #MSG9 ;BLOCK THE CARD READER STATION TO 


ee ee ee 
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1999 %7, TOUT + PREVENT A_CARD GOING THRU, AND" 
0 8 #MSG1 ,R2 ;'PRESS CARD READER ‘MOTOR START’ AND ‘READ START‘'' 


%7, TOUT 
%7,CRLFS sMOVE MESSAGE UP ON TTY 
#2000 ,aCRS MONITOR ON-LINE TRANSITION (BIT 10) 
74 : CONTINUE WHEN CARD “ss COMES ON-LINE 
#3,aCRS READ A CARD AND SET EJECT 
#140000, -@CRS : CHECK K DONE AND SPECIAL CONDITION BITS 
acrs CHECK SPECIAL CONDITION BIT 
+4 CONTINUE IF SE 
7SPECIAL CONDITION NOT SET 
015272 ee ;"REMOVE JAMMED CARD’ 
;'PRESS CARD READER "MOTOR START" AND ‘READ START'*’ 
TOUT "THEN HIT ‘CONTINUE’ ON THE CONSOLE’ 
012274 = 17, CRLF4 MOVE MESSAGE UP ON TTY 


— sWAIT FOR OFF-LINE TO CLEAR 


Beeeaxeees 


Beyeeses 
NOUEWN =O 


3A_STACK FAIL ERROR_SHOULD SET BIT 15 
ERROR — WHEN 3 CARDS IN A ROW HAVE NOT BEEN DELIVERED PROPERLY TO THE OUTPUT STACK 


zs INITIALIZE STATUS REGISTER 
;‘PRESS CARD READER ‘READ STOP**’ 


;""THEN HIT *CONTINUE* ON THE CONSOLE"* 
;"HOLD THE OUTPUT STACKER GATE OPEN. THEN’ 
:"PRESS CARD READER "MOTOR START’ AND 
READ START. 

012274 27, CRLF4 UMOVE MESSAGE UP ON TTY 

002000 T a _ gWAIT FOR CARD READER TO COME ON-LINE 

000003 ; ; INITIALIZE COUNTER TO READ 3 CARDS 

: JECT A CARD 


000003 : MOV 
140000 of sWAIT FOR CARD DONE OR SPECIAL CONDITION 


BRuRSS as 


; COUNT _DOWN 

ZREAD 3 CARDS ALL TOGETHER 

rb teas SPECIAL CONDITION BIT 15 
BRANCH IF SET 


2 SPECIAL CONDITION NOT SET 
014224 :PRESS CARD READER “MOTOR START’ AND ‘READ START''’ 


TOUT "THEN HIT ‘CONTINUE’ ON THE CONSOLE’ 
012274 = %7°CRLF4 MOVE MESSAGE UP ON TTY 
000400 #400,aCRS WAIT FOR OFF-LINE TO CLEAR 


me a a a ee ee me ee 


2024 
2026 
2028 
2030 
2032 
2034 
2036 
2037 
2038 
2039 
2040 
2061 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
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c2( 

CZCRAC.P11 SEQ 0040 czc 
2055 010442 001375 BNE 4 2; 
( 

;DARK=LIGHT ERROR SHOULD SET BIT 15 $! 

THIS OCCURS WHEN DATA. IS SENSED BEFORE COLUMN ONE OR AFTER COLUMN EIGHTY Hi 

WHEN THE SENSORS ARE NOT ALL SENSING A HOLE AFTER THE CARD HAS PASSED i 

:THIS TEST IS SKIPPED IF BIT 0 OF THE SWITCH REGISTER EQUALS ONE 21 

1 TO MAKE THE 2 DARK=LIGHT CHECK CARDS: 2 

; J. TEAR A SMALL PIECE FROM THE LEADING EDGE, OF ONE C ! 

; 2. TAPE 2 CARDS TOGETHER TO ALONG” CARD~IT “ONLY NEEDS TO BE 21 

206% : ABOUT" 172 INCH LONGER THAN A: REGULAR ¢ 2i 
5 010464 104001 TESTG: SCOPE 2i 
2086 010446 032777 000001 170142 BIT #1, aSwR CHECK _SwO 21 
010454 00141 BEQ CONTG :RUN TEST IF NOT SET 21 

2068 010636 006737 011462 JSR 7 BELL IF SET. RING BELL AND Hl 
0462 e 4 

70 010464 012737 007236 012150 MOV §- #ATESTA#2,RETURN ;SETUP SCOPE LOOP RETURN ADDRESS TO LOOP THRU TESTS 21 
71 010672 000137 007234 JMP —sTESTA START ERROR TESTS OVER ON CONTINUING 2i 
We 010676 7 011434 CONTG: JSR  =—_&7, INIT SINITIALIZE STATUS REGISTE 21 
010502 1 CLR —- COUNT SINITIALIZE COUNTER 2i 

2074 010506 005201 INC COUNT :SET TO INDICATE FIRST PASS 21 
2075 010506 012702 015371 MOV #MSG12,R2 ;PLACE SPECIAL DARK=LIGHT CHECK CARDS (SEE LISTING, TES 2i 
2076 010512 004737 012152 JSR —s- &7, TOUT SAT THE BOTTOM OF THE INPUT STACK’ 21 
2077 010516 012702 014224 LOOPG: MOV § #MSG1,R2 PRESS CARD READER "MOTOR START” AND "READ START** 2i 
2078 010522 005737 000632 TST FLAG [CHANGE MESSAGE FOR DOCUMATION READER? 2) 
2079 010526 001402 BEQ .+6 ZNO 21 
2080 010330 012702 014307 MOV § #MSG1A,R2 ;'PRESS CARD READER 'RESET''' 2) 
2081 010534 004737 012152 JSR —s-&7, TOUT 2i 
2082 010540 012702 014343 MOV = #M5G2,R2 : 2) 
2083 010544 004737 012152 JSR —s- 1&7, TOUT THEN HIT °CONTINUE’ ON THE CONSOLE** 21 
2084 010550 004737 012274 JSR —s-%&7, CRLF4 MOVE MESSAGE UP ON T 2) 
2085 010554 000000 HALT 21 
2086 010556 032713 000400 BIT  #400,aCRS ;WAIT FOR OFF-LINE TO CLEAR 2i 
2087 010562 001375 BNE 4 2i 
2088 010564 012713 000003 MOV #3, aCRS ;EJECT THE CARD 2 
2089 010570 032713 140000 BIT § #140000.aCRS = ;WAIT FOR ERROR OR CARD DONE 2i 
2090 010574 001775 BEQ 4 2) 
2091 010576 005713 TST — @CRS ;CHECK SPECIAL CONDITION 2i 
2092 010600 100401 BM] +4 SCONTINUE IF S 21 
2093 010602 104000 HLT SPECIAL CONDITION NOT SET 2i 
20% 010604 005301 DEC COUNT [COUNT DOWN 21 
2095 010606 001743 BEQ  _LOOPG IF FIRST PASS, LOOP 21 
20% 010610 004737 011462 JSR: %&7,, BELL RING BELL 2 
2097 010614 000000 HALT 2i 
2098 010616 012702 014224 MOV § #MSG1,R2 ;"PRESS CARD READER "MOTOR START’ AND "READ START''’ 21 
2099 010622 005737 000632 TST FLAG CHANGE MESSAGE FOR DOCUMATION READER? 21 
2100 010626 001402 BEQ ZNO 2i 
Z101 010630 012702 014307 MOV = #MSG1A,R2 ;"PRESS CARD READER 'RESET* ‘' 2i 
2102 010634 004737 012152 JSR ‘# 2i 
2103 010640 012702 014343 MOV  #MSG2,R2 ;"THEN HIT ‘CONTINUE’ ON THE CONSOLE"' 2i 
2104 010644 004737 012152 JSR —s- 7, TOUT 2i 
2105 010650 004737 012274 JSR —s-&7, CRLF4 ;MOVE MESSAGE UP ON TTY 2i 
2106 010654 000000 HALT 2 
2107 010656 032713 000400 BIT #400,aCRS WAIT FOR OFF-LINE TO CLEAR 2i 
5108 ive 019757 007236 012150 MOV ATESTA*2, RETURN :SETUP SCOPE LOOP RETURN ADDRESS $! 
+2, i 

2110 010672 000137 007234 JMP TESTA ;LOOP THRU TEST ON CONTINUING 2i 
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;ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST 
;NOTE Hay le MUST BE DOWN AFTER 2ND HALT 


TEST 
#SUBTG »R2 


BStADOCR R2 
PC, TOUT 


TMP? ,RETRNX 
aig spose am : CHANGE TO_FIRST ADDRESS AFTER SCOPE INSTRUCTION 
wie 


SETUP POINTERS AND FLAGS 


Od a ed wd ss = 


> P| 
FO 


OCONAOUF WI 
oo 
338 


Cooooooooe 
ERSNS 


RA 
ITCNT ?CLEAR ITERATION COUNTER 
012150 ;LOAD RETURN ADDRESS 
@RETRNX 


JUMP TO TEST 
;KEEP ITERATION COUNTER AT ZERO 
; JUMP TO TEST 


Se 
Wwh— 


roruny 
FANS 


2e 
2t 
2t 
2t 
2é 
2t 
2t 
2t 
2t 
2t 
2é 
2 
2é 
2t 
2t 
2t 
2t 
2t 
2é 
2t 
2k 
2t 
2t 
2 
2t 
2 
2 
2t 
2t 
2 
2t 
2t 
2 
2t 
2k 
at 
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1 
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L COLUMNS IDENTICALLY PUNCHED. 
DATA FAILURES TO BE STUDIED 


HEN 
CE_AND COMPARED WITH IT. IF A 
THE TOT. 


R_OF CARD AD AND T 
tUP TO THAT POINT (ALL PRINTOUTS ARE =s OCTAL). N_THE INPUT HOPPE 
1S EMPTY. THE ROUTINE RINGS THE BELL WAITS FOR MORE CARDS TO BE 
LOADED AND THE CARD READER TO BE PUT BACK LINE. 
Swiss CAUSES A HALT AFTER AN ERROR, AND AND SWISS INHIBITS ERROR PRINTOUTS. 


CKSAME: TIT 
016307 MOV #SUBTS .R2 
000652 %7, SETUP INITIALIZE POINTERS 
016066 #CIMPAT .R2 
012152 PC, TOUT 


2CL EAR UPPER BITS OF PATTERN 
COUNT 


RROR_ COUNT 
CLEAR FLAG FOR PRINTING ERROR HEADING 
INITIALIZE COLUMN COUNT 


; CHECK he 8 
BRANCH IF SET os WAIT FOR READER TO COME ON-LINE. 
:START READING CARD 
: INCREMENT CARD “COUNT 
>CHECK COLUMM READY 
CKCOL BRANCH IF SET 
#40000 ,aCRS :CHECK CARD 
CKCRD BRANCH IF SET 
acRs : CHECK SPECIAL CONDITION 
LOOP IF NOT SET 
:CHECK BIT 8 
BRANCH IF SET TO WAIT FOR READER ON-LINE. 
SPECIAL CONDITION SET, BIT 8 CLEAR 


a a 8 a ed ed ed nd wd 8 


fonofhononufororuforufoforuruforurorrfy 


CKSIT: %7,BELL RING BELL TO SIGNIFY READER OFF-LINE 
CKSIT1: ; CHECK 


BR CKLOOP 
CKCRD: #80. ,CLCNT 

BE CKLOOP OK 

FINAL UMN COUNT WASN'T 80 

BR CKLOOP {START NEXT CARD 
CKCOL : @CRB1 ,DAT1 ;READ DATA BUFFER 

I CLCNT ; COUNT 

acRs : CHECK COLUMN READY 
6 CH IF OK 
[READING DBR DIDN'T CLEAR READY 


START BH CARD AFTER ERROR 
[WAIT AWHILE 


SISBRRENES SRKBRRVAETRE 


01 
011 
11 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


NNVVNNVNVNNNNNNNNNNNYNN 
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CKLP2 
006654 acre, DAT2 sREAD CRB1 AGAIN 
006652 alt CARD IM ; COMPARE St DATA 10 PATTERN 
BNE BRANCH IF FAILURE 
006654 DATS, CARDIN ARE SECOND READING TO PATTERN 
CKFAIL BRANCH IF FAILURE 
BR WAIT FOR NEXT COLUMN OR END OF CARD 
011426 CKFAIL: i : COUNT ERRORS 


167332 IT : CHECK FOR INHIBITING PRINTOUT 
LT CH AROUND PRINTOUT IF SET 
STEST FLAG TO PRINT HEADING 
BRANCH IF ALREADY DONE 
;PRINT HEADING ONC 
OUTPUT HEADING 


;OUTPUT CARRIAGE RETURN, LINEFEED 
:PRINT COLUMN NUMBER 


PERLE RR RRNS 


me 
rn 


WW 
—— 
#o 


PRINT FIRST READING 


PRINT SECOND READING 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011300 
011304 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
11 
1 
1 
1 


FERSEE KSEE 


TOTCRD .R2 PRINT TOTAL NUMBER OF CARDS READ 
7,PROCT 


z 
%7, SPACE 
TOTERR ,R2 :PRINT TOTAL NUMBER OF DATA ERRORS 
J %7,PROCT 
CKHLT: aSwR CHECK SW15 TO HALT ON ERROR 
BP’ CKDONE BRANCH IF NOT SET 
HALT ON ERROR 


BR CKLOOP : CONT INUE 
CKDONE : —, zsWAIT FOR SPECIAL CONDITION OR DONE 
CKLOOP START NEXT CARD AFTER CHECKING BIT 8 


REAd 


TOTERR: 
TOTCRD: 
CARDIM: 


; ISSUE MESSAGE IF CARD READER IS OFF-LINE 
WAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL READING A C 
s INITIALIZE STATUS REGISTER AND USE ERROR HALT IF IT DOESN'T CLEAR PROPERLY 
“NOTE T T PROGRAM L HANG HERE IF BUSY REMAINS SET 
INIT: wish 17 KBITS SSEE IF OFF LINE ol IS SET 
a7 CxBITe. SWAIT FOR BUSY TO CLEAR, IN CASE 
TA CARD IS STILL BEING READ 
S INITIALIZE STATUS REGISTER 
;READ DATA BUFFER TO CLEAR COLUMN READY 
MAKE SURE INITIALIZATION OK 
“BRANCH IF ALL BITS ZERO 
:NOT AL BITS OF STATUS REGISTER ARE ZERO 


PRIRIINIINANNNNNRNNNNANNNANNNNNRAN VARNA 
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2247 

2268 011462 105777 167124 
2249 011466 100375 

2250 011470 012777 000207 
2251 011476 012737 000001 
$528 011504 7 

225 

2254 

2255 

2256 011506 032713 000400 
2257 011512 001001 

2258 011514 7 

2259 011516 012702 015744 
2260 011522 004737 012152 
2261 011526 012702 01566) 
2262 011532 004737 012152 
2263 011536 000000 

2264 011540 000762 

2265 

2266 

2267 

2268 

2269 

2270 011542 105777 167044 
2271 011546 375 

2272 011550 012777 000240 
2273 011556 5337 011572 
2274 011562 100367 

2275 011564 005037 011572 
2276 011570 207 

2277 011572 

2278 

2279 

2280 

2281 

2282 

2283 011574 104003 

2284 011576 037727 167014 
2285 011 001401 

2286 011606 00043 

2287 011610 012637 011730 
2288 011614 012637 011732 
2289 1620 024646 

2290 011622 00473? 912242 
2291 011626 010237 011722 
2292 011632 013702 1730 
2293 011636 004737 1734 
2294 011642 105777 166744 
2295 1646 100375 

2296 011650 012777 000240 
2297 011656 013702 011732 
2298 011 004737 011734 
2299 011 013702 011722 
2300 011672 105777 166714 
2301 011676 100375 

2302 011700 012777 000240 


167036 


020000 


166736 


166706 


f 
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4 


;BELL ON PASS COMPLETE 


BELL:  TSTB 


BPL 
MOV 
MOV 
RTS 


sn WAIT FOR TTY READY 
#207 ,aTOBR sRING BELL 
= RETURN CERTAIN ITERATION MAXIMUM IS CORRECT 


; SUBROUTINE TO CHECK rt at 8 Si a ae ape SET IN CARD 


>READER .ae 
CKBIT8: BIT 


AND e40h's OUT A MESSAGE IF 


00,aCRS :CHECK BIT 8 


. +4 sBRANCH IF 
7 RETURN IF NOT SET 
#MSG18 ,R2 OUTPUT MESSAGE 
%7, TOUT ;‘BIT 8 WAS SET" 
#M5G17,R2 3" REMEDY THE ERROR CONDITION 
%7, TOUT AND PRESS ‘CONTINUE "’ 
WAIT FOR CONTINUE 
CKBIT8& ZCHECK AGAIN 


ee ee th ISSUE N_ SPACES 


VALUE CONTAINED IN SPACEX 


N IS ONE PLUS 
:SPACEX IS CLEARED WITHIN THE SUBROUTINE, SO THAT A CALL ON 
{SPACE — cen SPACEX ISSUES ONLY ONE SPACE 


R 
SPACEX: 0 


sWAIT FOR TTY READY 


-4 
#240, aTDBR OUTPUT A_SPACE 
SPACEX ;DECREMENT COUNT 
SPACE ;LOOP_IF NOT DONE 
SPACEX RESET COUNT TO ZERO 
27 RETURN 


+ apna & ah SYSTEM TRAP CALL (HLT 


=PRINT aeeet ERROR PC AND STATUS "REGISTER 
PRINT: OEBIN 


@SWR , #20000 TEST FOR re hy PRINT OUT 
.+4 BRANCH TO PRINT 
B.CK : INHIBIT, CHECK FOR HALT 


(6)+, SAVPC PC OF FAILING ROUTINE 

(6)+, SAVPSR :PSR OR ge CONDITION 

~(6),  -(6) sRESTORE S$ 

%7,CRLF ; OUTPUT CARRIAGE RETURN, LINEFEED 
Z2 SAVR2 =; SAVE R2 


2 
Uv 
oO 
ss 
ve 


%7, PROCT ;PRINT PC+2_ IN OCTAL 
— z;WAIT FOR TTY READY 


#240,  @IDBR  ;OUTPUT A SPACE 


S 
Uv 
” 
» 
. 

ve 


2 
Fe PROCT ;PRINT PROCESSOR STATUS AT TIME OF FAILURE 
SAVR2, %2 sRESTORE REGISTER 2 
aTCSR WAIT FOR TTY READY 


74 
#240, aTDBR 


Oo 
NO 
on 


SEQ 0044 


WWWNIWWIIWIRNIINNINNNNN NNN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNENL 





G 
CZCRACO CR11 DIAG TSTS MACY]1 30A(1052) 27-SEP-79 09:50 PAGE 46 
CZCRAC.P11 26-SEP-79 15:13 
3 
? 


oOo 
NO 
am 


10400 B.CK: KBINTT 
005777 166702 CHECK SR FOR HALT SWITCH 
100001 BPL +4 BRANCH IF NOT SET 


HALT ON ERROR UP 
;RETURN TO MAIN LINE 


011724 : %3, SAVR3 3 SAVE 4 
011726 MO 24, SAVRS : SAVE R 
%4 : CLEAR Rs TO USE AS COUNTER 
COUNT CLEAR COUNT TO USE AS_CARRY FLAG 
000260 MOV ;SETUP ASCII ZERO IN R3 
%2 CHECK BIT he] a DESIRED NUMBER 
BRANCH IF SET 
3 CHANGE TO ASCII ONE 
;ROTATE INTO RIGHTMOST BIT 
:TO PREPARE FOR LOOP 
AD C STORE CARRY 
166616 . : it [WAIT FOR TTY READY 


C T 
166612 OUTPUT ASCII 
24 COUNT CHARACTERS OUTPUT 
000006 >CHECK FOR DONE 
BNE C.CON BRANCH IF NOT DONE 
011724 sRESTORE REGISTER 3 
011726 MOV = ameToee REGISTER 4 


RETURN 

CLEAR CARRY 
STEST CARRY FLAG 
: BRANCH 


IF NOT SET 
iceeAC FLAG 


CARRY 
;ROTATE NEXT 3 BITS INTO RIGHTMOST 3 


lelelelelelelelelelelelelelol~ BE ololelelalolelelole) 
PP PP PP PP PP PP PP 
SNIFASSFABRESE VARRVSSzS 


(ALAA KA Lal CA CAA Cal CA CA CA Cd Cl CA CA Cd Ct AC AN A Cl A AA A ot 


STORE CARRY 
%2 23 SMOVE DATA FOR OUTPUT 
177770 CLEAR ALL BUT RIGHTMOST 3 BITS 
000260 #260 %3 :SET TO ASCII EQUIVALENT 


BR C.WAIT 
; SCOPE es ITERATION LOOP FOR’ EACH TEST 2 TIMES 
SCOPEC: KBINT 
040000 166524 BIT #40000, @SWR TEST SR FOR SCOPE 
BNE D.1 > YES, SCOPE 
004000 166514 #4000 ,aSWR :NO- TEST FOR a 
BNE D. : INHIBIT ITERATION 
012146 012144 ITCNT, 1 TMAX : CHE CK FOR ITERATIONS COMPLETE 


° 2EXI 
012146 : INCREMENT COUNT 
: MP ;REPOSITION STACK POINTER 
177776 [RESTORE PROCESSOR STATUS 
000016 RETURN TO RERUN TEST 
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CZCRACO CR11 DIAG TSTS MACY] 
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2359 012132 a0e? 012146 D.2: CLR ITCNT CLEAR COUNTER 
2360 012136 0176357 012150 MOV a%6, RETURN ;SAVE SCOPE » Ld POINTER 
2361 012142 000002 RTI eda INL INE=NEXT aes 
Seee 012144 000001 ITMAX: 1 MAX NUMBER OF ITERATION 
2363 012146 000000 ITCNT: 0 ;COUNT LOCATION FOR ITERATION LOOP 
Seee 012150 001022 RETURN: TEST1+2 ADDRESS OF LAST TEST 
2366 MOV ADDRESS OF MESSAGE TO REGISTER 2 
2367 THEN JSR %7, TOUT 
2368 012152 142777 000177 166432 four: BICB #177, aTCSR ;CLEAR INT FLAG 
2369 012160 111237 012240 MOVB az2, L.EOMK MOVE IN EOM MARKER 
2370 012164 005202 L.INC: INC %2 ;MOVE DATA POINTER TO NEXT BYTE 
2371 012166 121237 012240 L.TOUT: CMPB az2, L.EOMK COMPARE FOR 
2372 012172 001006 BNE L.CNT sBRANCH IF NOT END OF MESSAGE 
2373 012174 105777 166412 TSTB aTCcSR SWAIT FOR TTY READY 
2374 012200 100375 BPL 74 
2375 012202 005077 166406 CLR aTDBR OUTPUT NULL 
2376 012206 000207 RTS %7 sRETURN IF EOM 
2377 012210 121227 000100 L.CNT: CMPB aze, #'a + CHECK FOR CR,LF REQUEST 
2378 012214 001003 BNE .+10 CH IF NOT 
2379 012216 004737 012242 JSR %7,CRLF SQUTPUT CARRIAGE RETURN, LINEFEED 
2380 012222 000760 BR L.INC ; LOOP 
2381 012224 105777 166362 TSTB aTCSR [WAIT FOR TTY 
2382 012230 100375 BPL 74 
2383 012232 112277 166356 MOVB (2)+, @TDBR ;OUTPUT NEXT CHARACTER 
2384 012236 000753 BR L. TOUT ; CONT INUE 
4 012240 000000 L.EOMK: 0 
2387 one elo TO ISSUE CARRIAGE ae AND LINEFEED 
2388 012242 105777 166344 CRL TSTB arcsR WAIT FOR TTY READY 
2389 012246 100375 BPL 
2390 012250 112777 000215 166336 MOVB #215, @TDBR ;SEND a RETURN 
2391 012256 105777 166330 TSTB aTcsR [WAIT FOR T 
2392 012262 100375 BPL .~4 
2393 012264 112777 000212 166322 MOVB #212, @1DBR ;SEND LINE FEED 
Soon 012272 000207 RTS %7 ;RETURN 
2396 ;D0 4 CRLF*S TO MOVE MESSAGES ON TELETYPE 
2397 012274 004737 012242 CRLF4: JSR %7,CRLF 
2398 012300 004737 012242 JSR %7,CRLF 
2399 012304 004737 012242 JSR %7,CRLF 
2400 012310 004737 012242 JSR %7,CRLF 
2401 012314 000207 RTS 27 
2403 012316 022737 000176 000616 CNTLUU: CMP AHSWREG , SWR 
2404 012324 001403 BEQ 
2405 326 716 000002 ADD #2, (SP) 
2406 012332 000504 BR OUT 
2407 012334 012702 016055 1$: MOV #SWREQ ,R2 
2408 012340 004737 012152 JSR C, TOUT 
24 013702 176 MOV SWREG ,R2 
2410 012350 737 011734 JSR PC ,PROCT 
2411 012354 012702 016040 MOV #MNEWIS ,R2 
2412 012360 737 012152 JSR PC, TOU 
2413 012364 005037 000622 AGN: CLR 


TMP 1 
2414 012370 012737 000007 000630 MOV #7,CSNT 
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105777 READ: 
100375 


- 
uw 


Be 


Doo 
z 
fu 


OOnNO 


016176 
012152 


000015 
000060 


Ee 
~ vine 
Ss SOS =SVOOOO0O0C00900 


a at tt 2 I 2 as 1 2 


penanerunneres 


BR READ 
012242 1$: %7,CRLF 


OUT: R 
016027 INERRR: #QEST,R2 
012152 J — 
A 


ROUTINE TO CHECK EXISTANCE OF SWREG 


000006 SUSWR : 6,-(SP) 

000004 MO 4,-(SP) 

012610 000004 #1$.4 

177777 —— 
$ 


2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 


BEBE 


$$ 
' (SP) +, (SP)+ 
edt an sats a ee A 
LAY 
000004 ; (SP) +.4 


(SP)+°6 
#SWREG , SWR 
1$ 


TMP 1 

@KBDBR, TMP 1 

#200, TMP 
7,1MP1 
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YPE THE MAIN TITLE 
005737 iliTep. TST TIFLG 
001406 BE 1$ 

012 #TITL.R2 
0047 %7, TOUT 
005037 TIFLG 
000002 : 


of 


7% 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2496 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 


122737 : #7,CSNT 
001403 

013777 TMP 1 ,aSwWR 
000002 1$: 


011646 EMTSRV: (SP) ,-(SP) 
162716 S #2, (SP) 
017616 000000 a(SP), (SP) 
006316 (SP) 

042716 #177001, (SP) 
062716 ADD #EMTTAB, (SP) 
017616 000000 a(SP), (SP) 
000136 a(SP)+ 


011574 : CALLED BY 
012062 S :CALLED BY 
012316 :CALLED BY 
012640 :CALLED BY 
012376 CALLED BY 
012560 :CALLED BY 
012732 CKUU :CALLED BY 
012706 TITTYP :CALLED BY 
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DATA TABLES FOR DATA RELIABILITY TESTS 


ALPHANUMERIC WV DATA TABLE 
A COLUMN on tae DIRECT 


: T COLUMN 1 
: THE SECOND VALUE IS THE anne FORM OF THAT DATA 
; COLUMN 1s — 


mame 


ALPCD: 


12 1 
12 2 
12 3 
12 4 


YHA 
ODONAUSWIO 


es e. ee. ee. . 
oOo On oOo WwW F&F Ww PO 35 


poreaes 


se Se 
_—_- — 
_- oOo 
sa zeownwnmnd¢gqgenanewes >s 
w 


ee . ee 2 ee 
—_—_— oe eed 
w & WNW fh 
aoaowewenaowWwwoa nun ao 


Ses 
—s 
oa 
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CZCRAC.P11 26-SEP-79 15:13 cf 
2559 013164 002002 2002 325 11 8 SUB 

013166 000110 110 SUS 
013170 002001 2001 326 119 sus 
013172 000120 120 SwR 
Sis 002 2202 327 1182 
013176 00011 112 
013200 0021 2102 328 $ 1183 SwR 
013202 00011 113 SwR 
013204 2042 329 * 1184 
013206 000114 114 Da 
013210 2022 330 ) 1185 
013212 000115 115 
013214 002012 2012 331 ; 1186 
013216 000116 116 
013220 2006 332 BLANK 1187 
013222 000117 117 
013224 001000 1000 333 0 


~~ S£§ RB EGE €&e Ee 37H KN CO 
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2615 
2616 
17 
18 
19 
2621 
shee 
262 


BRUCE BNR 


BERERERE Soe 


4 
A 
3 
C 
264 D 
264 E 
F 
G 
H 
I 


e ao 
m 
2 
= 


~ A 


0135 4006 
013522 ALPEND: 217 
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2671 a DECK fon ia TABLE 

% : FIRST VALUE FOR A COLUMN IS THE DIRECT CARD IMAGE OF THAT COLUMN ON CARD1 

sTHE SECOND VALUE IS THE ENCODED VALUE, WHICH ORS THE OCTAL REPRESENTATION OF 

2674 ; ONE THRU SEVEN 
Sere BINCD: :CARD COLUMN 1 
2677 
2678 
2679 
268) 


mt 
KEYSRR 


VIVIVIV 
So 


a ad od oh od 
WWM AW 


SERS 


essssssosses 


SBERERRERESGSS 


3 


Se 


BMW & SUNOS NS fn" 
Se 
= 
o 


2692 
2693 
2694 
2695 311 
2696 
2697 
2698 
2699 
2700 





5 
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7 
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a 


PPEPRRRREPEREREES 
&5 


RRVSAR 


= 
= 
CMO 


2800 
St 
2804 
2805 
2806 
2807 
2808 
2809 


SS 


VYYYVYYYSS 


Per pee 
WN $C OONQAUSWI—o 


— 


BINEND: 237 
aoa MSG1: .ASCII ;/@PRESS CARD READER "MOTOR START’ AND ‘READ START'/; 


Pchictchicri tsi 
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05144 
MSGIA: .ASCII ;/@PRESS CARD READER ‘RESET'/; 


MSG2: .ASCII ;/@THEN HIT "CONTINUE' ON THE CONSOLE/; 


051505 t « 37@PRESS CARD READER ‘READ STOP'/; 
gesice 


504 
051047 040505 
052123 050117 


051505 . a 3/@PRESS CARD READER 'STOP'/; 
042122 
042504 
047524 


id SP crevchacr es a4 23 4 bi 


:7@THE INTERRUPT LEVEL WAS /; 


;7@REMOVE ALL CARDS FROM THE INPUT HOPPER/; 


3;7@RESTORE CARDS IN THE INPUT HOPPER/; 


eASCII ;/@RAISE OUTPUT STACKER PRESSURE ARM SLIGHTLY ABOVE HORIZONTAL @ THEN LO 


046124 
053117 





E 
CZCRACO CRI1 blag IST ect 3SOA(10S2) 27=SEP=79 09:50 PAGE 57 


CZCRAC.P11 


2895 
2896 
2897 
2898 
2899 
2900 
2901 
3308 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
soig 
291 

2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 


3 


SezEREE 





aNNTeS z 


i~] So 
por Pr Pr = 
Wi MMVIII VII 
dk a ak ddd dd 


5 


-ASCII ;/@LOWER OUTPUT STACKER PLATE TO BOTTOM/; 


eASCII ;/@HOLD DOWN THE SWITCH AT THE BOTTOM OF THE INPUT HOPPER/; 


e® 
So ooo 
as ot te 
SNVIOWOE NUINWUIS =O 


— 
WS o> 


:/@LIFT SWITCH UNDER RIFFLE CAP/; 


SEENEK 


:/@BLOCK THE CARD READER STATION TO PREVENT A CARD GOING THRU, AND/; 


MSG10: .ASCII ;/@REMOVE JAMMED CARD/; 


MSG11: .ASCII ;/@HOLD THE OUTPUT STACKER GATE OPEN. THEN/; 


MSG12: .ASC’  ;/@PLACE SPECIAL DARK-LIGHT CHECK CARDS (SEE LISTING, TESTG); 


046101 
026513 
020124 


CZCRACO CR11 
CZCRAC.P11 


2951 
pe 
2958 
2959 
2960 
Bs 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2976 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 


33332 


33 


SERPS: 


Ss 


S55 


esssssssssses 


016074 
016102 


0 
052 


515 
101 


1447 
052516 


020124 
020123 


052514 
0505 


-ASCII 
-ASCII 


-ASCII 
-ASCII 


s@AT THE BOTTOM OF THE INPUT STACK/; 


;/@DECK CARD COLUMN PATTERN READ] READ2 CODED 


3/@ALPHA /; 
7 /@BINARY/; 
;/@BIT 15 WAS SET/; 


:/@REMEDY THE ERROR CONDITION AND PRESS 


;/@BIT 8 WAS SET/; 


;/@COLUMN READ1 READ2 CARDS ERRORS/; 


7/OSWR = /; 
z/QCARD IMAGE PATTERN= /; 


* CONT INUE *@/; 
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7 0471 g 


57 
040524 STADD: .ASCII ;/@STARTING ADDRESS = /; 
020107 
051505 

57 


0 
055103 TITL: .ASCII ;/@@CZCRACO CR11 DIAG TSTS /; 
020060 


042040 

051524 

020075 sASCII 3 /*Ua= /; 

OH : .ASCII ;3/@INSTR + DATA TEST/; 


OONOUFWoO 


eASCII ;/@CR11 ERROR FUNCTION TEST/; 


BEseuseesaaseeaeses 


:/@SINGLE TEST LOOP/; 
050117 
047111 : 37@SINGLE DATA PATTERN TEST/; 
040504 
052101 
052040 
027524 
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3 
34 anes 2443 
17718 


“3 


1699 


WMS NM UVIVIVIO® VIVIVICD OS 
Ww o LISS 
APES LOSING 


1735* 1736* 1737 1738* 1739* 


a 
Ww 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
1 
1 
2 


22564 2264 


2158* 2179 
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001410 
002242 990 
000640 1484* 1507 1605 
012242 2207 2290 379 23884 2400 2439 
012274 1900 1953 1982 2002 2018 2035 2052 2084 


Be 
$3 
we 


& 


1 
1 
1609* 
1 
1 
1 


Net pt 
“ugqe~ 


012546 
011434 
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INTFLG 1111 1129" 1135 
1880s 18581861 


2353 23634 


at 


ee 


2283 2303 


2 
eB 


3k 


17084 1750 


0006 
0064 
006466 


2033 2098 
28444 


2029 


83 


Sates 


= athe SS es 
SUI & 
SBS 
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SE 


w 
ae 


“tat ata 


006632 
006412 
000764 


fr 
* 


999 
71 


wo— 


1 
1 
2 
1 
1 
1 
1 
1 
1 


897 952 994 1023 
1388 1408 1427 1449 


8 


=n 
SSR 


2210 2213 2216 2219 22704 2274 


Vito 
By 


kd dk a) ed es 


Na N 
—aPusoe 
aRYye =f 
AMNMNBMOoOIWUnM 
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SUBTS 016307 148 ta 

SUSWR 012560 498 
1566 1579 1690 1721 1729 1767 
2284 2304 2 2403 2450 2454* 2460 
2454 2460 
2325 2368* 2388 2391 
2327* 2375* 2383% 2393* 2418* 


2110 


ooo 
NING 


n=B 
Ora eae 


Vwron-a 
SNRIS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


3 


1503 1509 


8974 
946 9524 
2425 2427 2429 2431* 2435 


TINT17 
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G TS 
CZCRAC.P11 26-SEP- 


Sonu 
e8e8 


2433* 2435* 2462* 2463* 2464% 


2 
r4 
1 
2 
2 
1 
1 
1 
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1096 1172 1215 1258 1301 1344 
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CZCRAC.P11 S REFERENCE TABLE <= MACRO NAMES SEQ 0066 
~ ABS. 016342 000 
ERRORS DETECTED: 0 
ee ~LST/CRF/SOL/NL : TOC=CZCRAC.SML,CZCRAC.P11 
RUN-TIME: $6'S° SECONDS 
RUN-TIME RATIO: /64=4.6 
CORE USED: 25K 


(49 PAGES) 


